Despues de la ayuda que me dio el colega Simope sobre la instruccion net use aqui les va la solucion del problema
Código:
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