taille de fenetre form 0

label quit
label demma
label test
label aide
label menufd
label menufs
label menufi
label menuid
label menuis
label menuii
label sto
label actu
dim f$,n$,i$,g$,k$,s$
s$="@ start /b /min net stop "
g$="
n$="@ start /b /min net start "
f$="FreeMi UPnP Media Server"
i$="iTunesExport Service"
left 0,198
top 0,160
width 0,285
height 0,125
caption 0,"Pack FreeMi -FreeAddons.free.fr"

PICTURE 10
top 10, 1
width 10, 210
height 10, 60
FILE_LOAD 10, "freea.bmp"

SHOW 10

rem Creation of a menu
main_menu 1

rem Creation of 2 sub_menus at the same level
sub_menu 2 : caption 2,"Fichier" : parent 2, 1
sub_menu 3 : caption 3,"Services" : parent 3, 1
sub_menu 5 : caption 5,"Config" : parent 5, 1
sub_menu 4 : caption 4,"Aide" : parent 4, 1
rem Creation of 3 Sub_Menus to Sub_Menu 2 (Files)
sub_menu 6 : caption 6,"Quitter" : parent 6, 2
rem action on click
on_click 6,quit
on_click 4,aide
combo 11
height 11,10
width 11,160
text 11,"Choix du service"
item_add 11,f$
item_add 11,i$
on_change 11,actu
rem Creation of 3 Sub_Menus to Sub_Menu 3 (Edition)
sub_menu 7 : caption 7,f$ : parent 7, 3
sub_menu 8 : caption 8,i$ : parent 8, 3
sub_menu 9 : caption 9,"Aide" : parent 9, 3
rem Creation of 3 Sub_Menus to Sub_Menu 7 (FreeMi)
sub_menu 18 : caption 18,"demarrer" : parent 18, 7
sub_menu 19 : caption 19,"Arreter" : parent 19, 7
sub_menu 20 : caption 20,"Installer/Réparer" : parent 20, 7
on_click 9,aide
on_click 18,menufd
on_click 19,menufs
on_click 20,menufi
rem Creation of 3 Sub_Menus to Sub_Menu 8 (itunes)
sub_menu 21 : caption 21,"Démarrer" : parent 21, 8
sub_menu 22 : caption 22,"Arréter" : parent 22, 8
sub_menu 23 : caption 23,"Installer" : parent 23, 8
on_click 9,aide
on_click 21,menuid
on_click 22,menuis
on_click 20,menuii
button 12
top 12,35
left 12,190
caption 12,"Arrèter"
on_click 12,sto
button 13
top 13,1
left 13,190
caption 13,"Démarrer"
on_click 13,demma
alpha 14
left 14,1
top 14,45
test:
caption 14,ITEM_INDEX$(11)
k$=ITEM_INDEX$(11)
end

menufd:
k$=f$
goto demma
return
menufs:
k$=f$
goto sto
return

menufi:
execute "c:\setup.msi"
return
menuid:
k$=i$
goto demma
return
menuis:
k$=i$
goto sto
return

menuii:
execute "explorer.exe"
return
demma:

file_open_write 17,"start.bat"
file_writeln 17,n$+g$+k$+g$
file_close 17
execute "start.bat"
goto actu
return

sto:

file_open_write 17,"start.bat"
file_writeln 17,s$+g$+k$+g$
file_close 17
execute "start.bat"
goto actu
return

aide:

EXECUTE "adresseinternet"
return

actu:
goto test

end

quit:
terminate
return

Program gobat;
Uses Forms,ShellApi;
Begin
 ShellExecute(Application.Handle,NIL,'go.bat','','',0);
End.

DLL_ON "form.dll"
DIM retour
DIM batch$:batch$="go.bat"
retour = DLL_CALL2("Execute",HANDLE(0),adr(batch$))
IF retour=1
 message "OK"
ELSE
 MESSAGE "Erreur"
END_IF
DLL_OFF

DIM retour, batch$
batch$="go.bat"
DLL_ON "form.dll"
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
MESSAGE "Le batch est maintenant terminé!"

retour=DLL_CALL2("Execute",HANDLE(0),adr(batch$))
MESSAGE "Le batch est en cours d'exécution"
DLL_OFF
END