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