Hola
Tu problema está aquí
Cita:
C:\Users\Administrador\Desktop\g
Deberia ser C:\Users\Administrador\Desktop\g\acwizard.ico
|
Como imagino que después vas a querer hacer esto de forma automatizada, puedes hacer esto:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
NomArchivo: string;
begin
NomArchivo := '\'+ExtractFileName(Edit2.text);
if CopyFile(PChar(Edit2.Text),PChar(Edit3.Text+NomArchivo),FALSE) then begin
ShowMessage('archivo copiado');
end
else begin
ShowMessage('archivo NO copiado');
end;
end;
Salud OS