Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: dateien an programm anhängen??

  Alt 11. Jul 2004, 12:40
einen Link poste ich mal nicht aber damit du über die Suche was findest nen Hinweis. Du kannst eine andere Exe als Ressource in deine Exe einbinden. Also einfach mal nach Hier im Forum suchenExe Ressource suchen. Wenn du schon bissl damit rum probiert hast ist es auch nicht schwer einfach eine Ressource-datei zu erstellen und dann später diese Ressource auf die Platte zu speichern.

Schnell mal nen Beispiel zusammengebastelt:
1.) Neue Datei anlegen mit dem namen "exeres.rc" //kann auch ein anderer .rc-dateiname sein
2.) Diese Datei dem Project hinzufügen (Projects->Add To Project)
3.) In die "exeres.rc" folgendes reinschreiben
Code:
exedatei01 BINRES "c:\deineEinzubindende.exe"
4.) In ein ButtonClick-Event (oder was auch immer folgendes schreiben
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var LStream: TResourceStream;
    LFile: TFileStream;
begin
  LStream := TResourceStream.Create(HINSTANCE, 'exedatei01', 'BINRES');
  LFile := TFileStream.Create('c:\nameDerZuExtrahierenden.exe', fmCreate);
  LFile.CopyFrom(LStream, LStream.Size);
  LFile.Free;
  LStream.Free;
end;
5.) Programm compilieren - Nach klick auf den Button (etc.) wird die Ressource dann nach 'c:\nameDerZuExtrahierenden.exe' extrahiert
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat