Datei 1 mit Datei 2 ersetzen

[Macci]

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