Problema con CopyFile
 

Hola a todos:

Mi pregunta es la siguiente:

Estoy haciendo unas pruebas con un programa y en uno de los apartados tengo que copiar un icono (.ico) a otra carpeta. Es solo copiarlo de un sitio a otro. Para ello estoy utilizando esta expresión:

CopyFile(PChar(Edit2.Text),PChar(Edit3.Text),FALSE);

Este es el texto que hay en el edit2: C:\Users\Administrador\Documents\RAD Studio\Projects\Quick Autorun 1.0\acwizard.ico

Y esto (seria el directorio de destino) lo que hay en el edit3: C:\Users\Administrador\Desktop\g

Hasta aqui, bien, supongo. El problema es que no me da errores, pero no lo copia, he probado con otros archivos y nada.

A ver si alguien me puede exar una manilla. Muxas Gracias

El segundo parametro no es el directorio de destino sino el archivo de destino, asi que tendrias que usar algo como esto en el segundo edit:
C:\Users\Administrador\Desktop\g\acwizard.ico

Hola

Tu problema está aquí

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

Gracias chicos, sino fuera por vosotros algunos nos volveriamos locos, jejej.

Saludos y feliz 2009