Erstelle eine Datei namens test.rc mit folgendem Inhalt:
Code:
TESTNAME RCDATA "test.txt"
Kompiliere sie über die Eingabeaufforderung mit:
"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;