Error en actualizacion de archivos

[lgarcia]

Despues de la ayuda que me dio el colega Simope sobre la instruccion net use aqui les va la solucion del problema

var
  fecha1, fecha2: Double;
 
function GetFileDate(TheFileName: string): Double;
var
 FHandle: integer;
begin
 FHandle := FileOpen(TheFileName, 0);
 try
   Result := Int(FileDateToDateTime(FileGetDate(FHandle)));
 finally
   FileClose(FHandle);
 end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  ShortDateFormat:= 'MM/dd/yyyy';
  fecha1:= GetFileDate('C:\Archivos de programa\Sadval\sadvalcajero.exe');
  WinExec(PChar('net use G: \\server\temp clave /user:administrador'),SW_HIDE);
  fecha2:= GetFileDate('G:\\sadvalcajero.exe');
  if fecha2 > fecha1 then
  CopyFile(Pchar('\\cliente\temp\sadvalcajero.exe'), Pchar('C:\Archivos de programa\Sadval\sadvalcajero.exe'), False);
  WinExec(PChar('net use G: /delete'),SW_HIDE);
  Close;
  WinExec(PChar('C:\Archivos de programa\Sadval\sadvalcajero.exe'),SW_SHOWNORMAL);
end;

Saludos
Luis Garcia