Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#3

Re: Wie füge ich Dateien in mein Projekt ein ?

  Alt 7. Jan 2004, 17:32
Erstelle eine Datei namens test.rc mit folgendem Inhalt:

Code:
TESTNAME RCDATA "test.txt"
Kompiliere sie über die Eingabeaufforderung mit:

Code:
brc32 -r test.rc
"Entpacken" geht dann so:

Delphi-Quellcode:
{$R test.res}

//...

var
 fs : TFileStream;
 rs : TResourceStream;

//...

rs := TResourceStream.Create(hInstance, 'TESTNAME', RT_RCDATA);
fs := TFileStream.Create('C:\test.txt', fmCreate);
try
  fs.CopyFrom(rs, rs.size);
finally
  fs.Free;
  rs.Free;
end;
  Mit Zitat antworten Zitat