Copiar Archivos

[david duarte]

Hola a todos!!!

aqui de nuevo,

me gustaria que cuando copio un archivo de un lugar a otro, me apareciera la ventanita de progreso de copiado.

Anexo codigo de como copio el archivo

Código Delphi [-]
copiar := CopyFile(Pchar('c:\Microcredito\SourceT\Microcredito.exe'),Pchar('\\'+compudest+'\Microcredito\prueb  a_.exe'), FALSE);
      if copiar = False then
      Begin
        memo1.Lines.Add('*****************************************');
        memo1.Lines.Add('*******  ERROR AL COPIAR EL ARCHIVO  ****');
        memo1.Lines.Add('*********       VERIFIQUE    ************');
      end
      else
      Begin
        fintrans := Time;
        label3.Caption := TimeToStr(Now);
        inistr := TimeToStr(iniciotrans);
        finstr := TimeToStr(fintrans);
        memo1.Lines.Add('Archivo copiado a: '+stringgrid1.Cells[0,cont] +' Inicio ' +inistr + ' Fin '+finstr);
        showmessage ('Archivo copiado satisfactoriamente a la compu: '+compudest);
      end;

si alguien sabe alguna opcion, se los agradeceria, ya que al momento de querer copiar de una direccion ip a otra, a veces se tarda y no se si realmente esta copiando o se quedo trabada.

Muchas Gracias.

Saludos!!!