Cambiar fecha al pc

[jgutti]

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

[Julià T.]

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;

[__hector]

Otra forma...


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;