FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Cambiar fecha al pc
Hola al foro
Tengo un ejecutable que funciona con fecha inferior al año 2000, por lo anterior necesito cambiar la fecha del Pc al ingresar al programa (12/12/1999) y al salir del programa volver a la fecha actual en el Pc (05/09/2003). ¿como puedo realizar este cambio? desde ya gracias por la ayuda atte jgutti |
#2
|
|||
|
|||
para cambiar a 1999
Var DH:SystemTime; begin DateTimetoSystemTime(Now,DH); DH.wYear:=1999; SetLocalTime(DH); end; para volver a 2003 Var DH:SystemTime; begin DateTimetoSystemTime(Now,DH); DH.wYear:=2003; SetLocalTime(DH); end; |
#3
|
||||
|
||||
Otra forma...
Código:
procedure TForm1.Button1Click(Sender: TObject); var fecha:TSystemTime; begin fecha.wyear:=1998; fecha.wMonth:=12; fecha.wDayofWeek:=5; fecha.wDay:=31; fecha.wHour:=15; Fecha.wMinute:=30; Fecha.wSecond:=0; Fecha.wMilliseconds:=0; if not SetSystemTime(Fecha) then showmessage('Error de cambio de fecha-hora'); end;
__________________
Héctor Geraldino Software Engineer |
|
|
|