Dateien einbinden

[unknown]

Hallo,

gibt es in Delphi eine Mögichkeit, wie ich beim Kompilieren eine beliebiege Datei in mein Projekt importiere und diese später zur Laufzeit (z.B. durch drücken eines Buttons) wieder ausgebe?

Danke Aaron :-)

[Hagen Reddmann]

Such mal hier im Forum nach "Dateien als Resource einbinden" o.ä.
Es sollten sich sehr viele Beispiele finden lassen

[unknown]

Ich habe im Forum gesucht jedoch nichts gefunden was mir helfen könnte

[Jens Schumann]

HAllo Aaron,<br>im Projektverzeichnis befindet sich die Datei TrayTest.exe und myres.rc. myres.rc mußt Du dem Projekt hinzufügen.<br>Mein Beispiel schiebt eine exe in die Resource. Beim klcik auf den Startbutton wird die exe mit TResourcestream aus der Resource geholt, gespeichert und ausgeführt.<br>
<pre><font size="1" face="Verdana">
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
aRS : TResourceStream;
Filename : String;
begin
Filename:=ExtractFilePath(Application.Exename)+'te xt.exe';
aRS:=TResourceStream.Create(hInstance,'TRAY','RT_R CDATA');
Try
aRS.SaveToFile(Filename);
ShellExecute(Handle,'open',PChar(Filename),Nil,Nil ,SW_SHOW);
Finally
aRs.Free;
end;
end;

end.

// Datei myres.rc // Dies ist eine Textdatei, die dem Projekt hinzugefügt wird
TRAY RT_RCDATA &quot;TrayTest.exe&quot;</font></pre>
<br>Wenn Du unter dem Menüpunkt Projekt den Punkt Resources hast, kannst Du darüber die Resourcen einbinden. Im Projekt Resources Dialog rechte Maustaste und New/Userdata<br>Auf meinen Win2k Rechner erscheint dieser Punkt nicht. Deshalb muß ich mit den rc-Dateien arbeiten. Seltsamerweise habe ich diesen Punkt unter Win95. Weiß vielleicht jemand warum? <br>Jens Schuman

[unknown]

Hallo Jens Schumann,

ich habe alles durchsucht, Platte und CD, jedoch keine Datei gefunden die myres.rc heisst

[unknown]

Sorry,

Fehler meinerseits.

Habe jetzt aber alles verstanden und bereits umgesetzt.

Vielen Dan