Problema con CopyFile

[Niko]

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

[[seoane]]

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

[[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

[Niko]

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

Saludos y feliz 2009