Exe en data Section: Enregistrer et lancer un éxécutable

[falsam]

Cet exemple permet d'enregistrer et lancer un exécutable figurant en data section après l'avoir installer depuis un premier exécutable : Par exemple un setup.

■ 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

■ Enregistrer maintenant ce code dans le même dossier et exécuter le.

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

Pratique pour créer un installateur par exemple.

[Backup]

ben c'est pas neuf ton truc

[falsam]

ben c'est pas neuf ton truc

Je n'ai pas dit le contraire. Tu ne radotes jamais toi ?

[Backup]

ben alors ça sert a quoi de reecrire un topic deja abordé

ici :
http://www.purebasic.fr/french/viewtopi ... rg#p119763

ici :
http://www.purebasic.fr/french/viewtopi ... =BinToFile

ici :
http://www.purebasic.fr/french/viewtopi ... =BinToFile

et bien sur .... ici

http://www.purebasic.fr/french/viewtopi ... =BinToFile

Merci Flype

Tu ne radotes jamais toi ?

non jamais

[Fred]

@Drobro: franchement abstiens-toi de poster si c'est juste pour critiquer. Tout code est bon à prendre et ton post n'apporte absolument rien, merci.

[Backup]

@Drobro: franchement abstiens-toi de poster si c'est juste pour critiquer. Tout code est bon à prendre et ton post n'apporte absolument rien, merci.

moi c'est Dobro , merci

ma reponse contient des codes, qui font deja la meme chose, je fait remarquer la redondance

[falsam]

ben alors ça sert a quoi de reecrire un topic deja abordé

Parce que les codes qui sont proposés ne sont plus ou pas fonctionnels (Code de 2006 ou Syntaxe incorrecte , etc ....).

Les codes que je propose ne sont pas de simples copier/coller que je balance. Ils sont liés à des questions qui se posent sur le forum par exemple, et sont fonctionnels avec les versions récentes de Pure Basic après quelques corrections.

[case]

c'est cool falsam continue de poster des codes

[Ar-S]

En gros on extrait un exe comme tout autre data en recréant le fichier sur le dd. C'est effectivement pratique. Par contre à mon humble avis, les antivirus risquent de pas aimer la chose. (déjà que).
Mais c'est vrai que pour un installeur ou mieux, un désinstalleur ça peu s'avérer pratique (avec un batch au lieux d'un exe ça passerai peut être mieux coté antivérolin).