Simplemente tienes que recurrir a la función SetSystemTime(MyNewTime), donde MyNewTime es una estructura del tipo _SYSTEMTIME. Ejemplo:
var
MyNewTime: _SYSTEMTIME;
begin
// primero llenamos la estructura
with MyNewTime do
begin
wYear := 2004; // año
wMonth := 8; // agosto
wDayOfWeek := 5; // jueves
wDay := 19; // día del mes
wHour := 01; // hora
wMinute := 55; // minutos
wSecond := 00; // segundos
wMilliseconds:= 00; // milisegundos
end;
// luego la aplicamos
SetSystemTime(MyNewTime);
Saludos
Keiso
|