[DELPHI] VERIFICAR SE O WINDOWS ESTÁ NO HORÁRIO DE VERÃO

//Uses windows;

procedure TForm1.Button1Click(Sender: TObject); 

var

  T: TTimeZoneInformation;

begin

if (GetTimeZoneInformation(T) = TIME_ZONE_ID_DAYLIGHT) then

ShowMessage('O Windows está no horário de verão!')

else

ShowMessage('O Windows NÃO está no horário de verão!');

end;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】