Artigos Delphi Dicas - Alterando data/hora do sistema

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