Como alterar a data e a hora do sistema
Utilize o seguinte código:
var
SystemTime : TSystemTime;
begin
Definindo o dia do sistema }
wYear := 1976;
wMonth := 5;
wDay := 8;
{ Definindo a hora do sistema }
wHour:= 00; { hora }
wMinute:= 00; { minutos }
wSecond:= 00; { segundos }
end;
{ Alterar a hora e data do sistema }
SetLocalTime(SystemTime);
end;
end;
por Luciano Pimenta