Exe aus Ressoruce extrahieren

[Aljoscha]

Hi.
Ich versuche verzweifelt eine Ressource (exe Datei) zu extrahieren.
Ist ein simples Testprogramm das keine andere Funktion hat.
Ich habe es angehängt, weil es einfach nicht klappen will.
Die Ressource kann NIE gefunden werden, egal was ich angebe.

Delphi-Quellcode:

Var
 MeinFileStream: TFileStream;
 RS: TResourceStream;
begin
SaveDialog1.Execute;

 RS := TResourceStream.Create(
   Form1.Handle,     // Handle deiner Anwendung/DLL
   '1',  // Name der Ressource
   RT_RCDATA);    // in diesem Fall ist es ein RCDATA resource type

 MeinFileStream:=TFileStream.Create(SaveDialog1.FileName, fmCreate);
 MeinFileStream.CopyFrom(RS, RS.Size);
 MeinFileStream.Free;

Die Ressource 1 kann nie gefunden werden.
Wäre nett wenn jemand mein Beispiel im Anhang korrigieren könnte.

thx 4 help

[3_of_8]

Ich kenn mich damit nicht so aus, aber vielleicht:

Application.Handle

statt

Form1.Handle

?

[teebee]

'hInstance' statt Form.Handle könnte funktionieren,

Gruß, teebee

[Aljoscha]

Nein beides schon probiert :(
Scheint nicht am Quellcode zu liegen.
Wäre nett wenn jemand sich den Anhang mal angucken könnte :)
thx

[Jens Schumann]

Hallo,
probier es mal damit.

Delphi-Quellcode:

...
var
  Path : String;
  aRes : TResourceStream;
begin
  Path:=ExtractFilePath(Application.ExeName);
  Path:=IncludeTrailingBackSlash(Path);
  aRes:=TResourceStream.Create(hInstance,'MYEXE','EXEDATA');
  Try
    aRes.SaveToFile(Path+'test.exe');
    ShellExecute(Handle,'open',PChar(Path+'test.exe'),Nil,Nil,SW_SHOW);
  Finally
    aRes.Free;
    end;
end;

Code ist getestet und funktioniert

Hier die Resourcendatei

Code:

MYEXE EXEDATA "test.exe"

[Aljoscha]

WUNDERBAR!
ICh hatte schon so gut wie aufgegeben :)
Vielen Dank dir!

[ferby]

Hallo,

ich habe es bis jetzt auch nicht zusammengebracht eine datei aus dem res der exe zu extrahieren.

ich habe den Quellcode ausprobiert, bei mir kommen die fehler:

[Warnung] Unit1.pas(33): Symbol 'IncludeTrailingBackslash' ist plattformspezifisch
[Fehler] Unit1.pas(37): Undefinierter Bezeichner: 'ShellExecute'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden



kann mir da wer weiter helfen?

[MathiasSimmack]

Zitat:

Zitat von ferby

[Warnung] Unit1.pas(33): Symbol 'IncludeTrailingBackslash' ist plattformspezifisch

Liegt nur an deinem Delphi. Kannst du ignorieren, wenn dein Programm eine Win32-Exe bleiben soll. Die Warnung ist so ein "Vorgeschmack" auf .NET. ;)

Zitat:

[Fehler] Unit1.pas(37): Undefinierter Bezeichner: 'ShellExecute'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Delphi-Quellcode:

uses
  ShellAPI;

[mirage228]

Zitat:

Zitat von MathiasSimmack

Zitat:

Zitat von ferby

[Warnung] Unit1.pas(33): Symbol 'IncludeTrailingBackslash' ist plattformspezifisch

Liegt nur an deinem Delphi. Kannst du ignorieren, wenn dein Programm eine Win32-Exe bleiben soll. Die Warnung ist so ein "Vorgeschmack" auf .NET. ;)

In diesem Fall hat die Warnung nichts mit .NET zu tun, sondern mit der Linux Kompatibilität (Sprichwort: CLX) der VCL/RTL ab Delphi 6.
Edit: Es hindert aber Niemand einen daran, die Methode IncludeTrailingPathDelimiter zu verwenden, die dann auch mit der CLX und Linux kompatibel ist. ;)

mfG
mirage228

[Jens Schumann]

Zitat:

Zitat von ferby

Hallo,

ich habe es bis jetzt auch nicht zusammengebracht eine datei aus dem res der exe zu extrahieren.

ich habe den Quellcode ausprobiert, bei mir kommen die fehler:

[Warnung] Unit1.pas(33): Symbol 'IncludeTrailingBackslash' ist plattformspezifisch
[Fehler] Unit1.pas(37): Undefinierter Bezeichner: 'ShellExecute'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden



kann mir da wer weiter helfen?

Ich verwende immer noch D5. Da ist IncludeTrailingBackslash noch Ok. Ab D6 steht in der OH, dass man
IncludeTrailingPathDelimiter verwenden sollte.