Ressource komplett in Temp extrahieren

[taktaky]

Zitat von SirThornberry:

mal das übliche:
- Wie sieht dein bisheriger Quelltext aus
- An welcher Stelle genau kommst du nicht weiter
- Was hast du bisher alles schon versuchst (Welche Eigeninitiative hast du gezeigt)
- hast du dich mit dem Thema Ressourcen überhaupt schon befasst (anhand der Fragestellung hab ich das Gefühl das du einfach das bisher geposteten kopiert hast aber dich nicht mit dem Thema vertraut gemacht hast)

Wir sind da um zu helfen, nicht um die Arbeit für andere zu machen. Zeige Eigeninitiative dann helfen wir. Ansonsten such dir ein anderes Forum. Du müsstest langsam eigentlich verstanden haben das wir auch Initiative deinerseits sehen wollen. Aber davon ist nichts zu sehen.

Ich habe eine kleine Frage gestellt, bekomme ich 4 Fragen

Ok, mein lieber Freund
Um Dateien an exe zu binden und wieder entpacken und danach starten ist schon klar Leute

Es geht nur wie man mehere Dateien auf einmal entpacken mehr nicht

Ich möchte natürlich nicht den Code wiederholen

Delphi-Quellcode:

{$R *.dfm}
{$R AlleDateien.res}
procedure TForm1.Button1Click(Sender: TObject);
var
  ResStream: TResourceStream;
begin
  ResStream := TResourceStream.Create(hInstance, 'index', RT_RCDATA); 
  if not FileExists(ExtractFilePath(ParamStr(0)) + 'index.htm') then ResStream.SaveToFile(ExtractFilePath(ParamStr(0)) + 'index.htm');
// ResStream.savetofile('c:\windows\temp\index.htm');
  if  fileexists(ExtractFilePath(ParamStr(0)) + 'index.htm') then
  ShellExecute(Handle, 'open',
  PChar(ExtractFilePath(ParamStr(0)) + 'index.htm')
  , nil, nil, SW_SHOWNORMAl)
  else ShowMessage('Die Datei konnte nicht geladen werden !');
  ResStream.Free;
end;

Der Code funktioniert super möchte ich aber den Weg verkurzen um die dateien von Ressource komplett zu entpacken
ohne den Code zu wiederholen :

Delphi-Quellcode:

ResStream := TResourceStream.Create(hInstance, 'index', RT_RCDATA); // RT_RCDATA
...
ResStream1 := TResourceStream.Create(hInstance, 'help', RT_RCDATA); // RT_RCDATA
...
ResStream2 := TResourceStream.Create(hInstance, 'kontakt', RT_RCDATA); // RT_RCDATA

// so will ich nicht, obwohl es so mein Problem löst ;)