Kopieren

[Zero]

Hallo...

Ich möchte gerne, das sich mein Program, sobald ein Button gedrückt wird in ein Verzeichnis KOpiert... wie kann ich das schreiben !?!

Gruss Zero

[Hagen Reddmann]

<pre>

var
Source,Dest: TStream;
begin
Source := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);
try
Dest := TFileStream.Create('c:\xyz.exe', fmCreate);
try
Dest.CopyFrom(Source, Source.Size);
finally
Dest.Free;
end;
finally
Source.Free;
end;
end;<br>

oder<br>

CopyFile(PChar(ParamStr(0)), 'c:\xyz.exe', False);<br>

</pre>

hage

[Zero]

Vielen Dank !!! Hast mir mal wieder echt geholefen..

So long

Zer