É necessário estar declarado Windows na seção uses,
em versões unicode declare Winapi.Windows.
A função retorna TRUE caso o Windows esteja no horário de verão.
Abaixo segue o código fonte da função:
1 2 3 4 5 | function IsHorarioVerao: boolean; var T: TTimeZoneInformation; begin Result := (GetTimeZoneInformation(T) = TIME_ZONE_ID_DAYLIGHT); end; |
Exemplo de uso:
1 2 3 4 5 6 7 | procedure TForm1.Button1Click(Sender: TObject); begin if IsHorarioVerao 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; |
