FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Solucion final
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; Luis Garcia |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Error: No se puede encontrar la fila para su actualizacion | ludan508 | Conexión con bases de datos | 0 | 16-04-2007 22:12:29 |
Error al saltar de Reporte a Actualizacion de Registro | chetos7 | SQL | 1 | 27-01-2007 13:15:47 |
Error extraño en lectura de archivos | eljose | C++ Builder | 2 | 18-11-2006 17:10:29 |
Error de conexion con BDE en XP luego de Actualizacion | YoUsoDelphi | Conexión con bases de datos | 6 | 04-10-2005 15:36:26 |
Error de actualizacion con DataSet | Luis | Conexión con bases de datos | 1 | 23-10-2004 08:49:25 |
|