[[nlsgarcia]]

pokexperto1,

...sigue sin funcionar...CopyFile...

Revisa este código:

Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, FileCtrl;
 
 type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
    openDialog : TOpenDialog;
    chosenDirectory : String;
    FromFileName, ToFileName : String;
    MsgUser : String;
 
 begin
    openDialog := TOpenDialog.Create(self);
    openDialog.InitialDir := GetCurrentDir;
    openDialog.Options := [ofFileMustExist];
    openDialog.Filter := 'Archivo a Copiar|*.*';
    openDialog.FilterIndex := 1;
    if openDialog.Execute then
    begin
       if SelectDirectory('Seleccione un Directorio de Destino de Copia', 'C:\', chosenDirectory) then
       begin
          FromFileName := openDialog.FileName;
          ToFileName := chosenDirectory + ExtractFileName(openDialog.FileName);
          if Copyfile(PChar(FromFileName),PChar(ToFileName),True) then
             MsgUser := 'Archivo Copiado'
          else
             MsgUser := 'El Archivo No Fue Copiado, Existe en el Directorio Destino';
          MessageDlg(MsgUser,mtInformation,[mbOK],0);
       end
       else
       begin
          MsgUser := 'No se Selecciono Ningún Directorio de Destino';
          MessageDlg(MsgUser,mtInformation,[mbOK],0);
       end;
    end
    else
    begin
       MsgUser := 'No se Selecciono Ningún Archivo para Copiar';
       MessageDlg(MsgUser,mtInformation,[mbOK],0);
    end;
    openDialog.Free;
 end;
 
 end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, permite copiar un archivo de un directorio cualquiera a un directorio destino por medio de la función CopyFile.

Espero sea útil

Nelson.