Problema con CopyFile

[[egostar]]

Hola

Tu problema está aquí

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