Hi Gonzo85,
ersetze in deinem Code einfach das hier:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
end;
durch dieses hier:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
if not CopyFile(PChar(Edit2.Text), PChar(Edit1.Text), False) then
Application.MessageBox('Die Datei konnte nicht kopiert werden.', 'Fehler' ,
MB_ICONSTOP);
end;
Funktioniert auch über Laufwerksgrenzen hinweg.
Viele Grüsse,
Macci