thx @ Medium^^
hier ...
habe ich hier aus dem forum gestänzt^^
Delphi-Quellcode:
procedure TForm3.sButton3Click(Sender: TObject);
var
tr : TResourcestream; // Einen Ressource Stream angeben!
begin
if Form1.sRadioButton1.Checked then
begin
if not FileExists('C:\Programme\xyz\xyz.xyz') then
begin
tr := TResourcestream.Create(hinstance,'xyz','xyz'); //wird erstellt
Form3.JvTimer1.Enabled := True;
forcedirectories('C:\Programme\xyz\');
tr.SaveToFile('C:\Programme\xyz\xyz.xyz');
end
else
ShowMessage('Die Datei existiert bereits!'); //wird extrahiert und gespeichert
tr.Free; //Stream wird freigegeben
end;
sieht bissle durcheinander und "angfängerhaft" aus, saß aber kaum dran ... zock lieber -_-
hoffe ihr könnt damit was anfangen^^