■ Créer un dossier. Enregistrer et créer un exécutable de ce bout de code. (demo.exe)
Code : Tout sélectionner
Enumeration
#Mainform
EndEnumeration
Define.l Event, GEvent
Global WindowStyle.i=#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered
Procedure Open_MainForm()
OpenWindow(#Mainform, 0, 0, 300, 200, "Demo", WindowStyle)
EndProcedure
Open_MainForm()
Repeat
Event = WaitWindowEvent(10)
GEvent = EventGadget()
Select Event
Case #PB_Event_Gadget
Select GEvent
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
Code : Tout sélectionner
EnableExplicit
Define.s TextFile, ExeFile
Define FF, *mem, length.q
ExeFile = SaveFileRequester("Installer sur ... ", "demo.exe", "Exe (*.exe)|*.exe", 0)
If ExeFile
FF = CreateFile(#PB_Any, ExeFile)
If FF
WriteData(FF, ?demo, ?demo_end - ?demo)
CloseFile(FF)
RunProgram(ExeFile)
EndIf
EndIf
End
DataSection
demo:
IncludeBinary "demo.exe"
demo_end:
EndDataSection