Extraire un fichier d'un exécutable

[Jagang]

Bonjour
J'ai créé un logiciel en Basic (téléchargeable ici VideoManager V1) mais suite à de nombreux problèmes j'ai décidé de le refaire entièrement en PB
Il fonctionne comme je veux et sans bogues, mais comme il y a déjà la version 1 qui existe certaine personne auront peut-être déjà une liste de DVD (c'est un logiciel pour géré ses DVD) il ne voudrons surement pas tout refaire alors j'ai décidé de faire un patch d'installation.
Dans ce patch il y aura les nouveaux fichiers de l'application mais il sera aussi charger de récupérer la liste de DVD et de la convertir pour la V2 ainsi que de supprimer les fichiers inutiles.
Venons en a mon probleme.
J'ai inclue mon exécutable dans le patch mais je ne sais pas comment faire pour l'extraire

Code : Tout sélectionner

DataSection 
  executable: IncludeBinary "VideoManager.exe"
EndDataSection

J'ai chercher dans le forum et dans la doc mais je n'ai rien trouver qui fonctionne

Merci d'avance pour votre aide
Cordialement
Jagang

[SpaceMan]

Salut Jagang !
Voici un code de Dr Dri qui fonctionne bien

Code : Tout sélectionner

DataSection 
  Notepad: 
  IncludeBinary "C:\Documents and Settings\lycee kennedy\Bureau\Seven.txt";"c:\windows\notepad.exe" ;à adapter en cas de besoin... 
  EndNotepad: 
EndDataSection 

If CreateFile(0, "_notepad.exe") 
  ;extrait l'exe 
  WriteData(0, ?Notepad, ?EndNotepad-?Notepad) 
  CloseFile(0) 
  
  ;lance l'exe, attend sa fermeture, le détruit 
  RunProgram("_notepad.exe", "", "", #PB_Program_Wait) 
  DeleteFile("_notepad.exe") 
  
  ;un ptit coucou avant de quitter 
  MessageRequester("ExeExtract", "Tout s'est bien passé ?") 
EndIf

[Jagang]

Merci ça fonctionne parfaitement
Cordialement
Jagang

[Jagang]

Au passage
Vous en pensez quoi de mon programme (utile , pas utile , manque d'option , trop complexe ...)

Merci
Cordialement
Jagang