vielleicht hilft dir das weiter:
Delphi-Quellcode:
function GetTimeZone: String;
var T: TIME_ZONE_INFORMATION;
begin
case GetTimeZoneInformation(T) of
TIME_ZONE_ID_UNKNOWN: Result := 'unbekannt';
TIME_ZONE_ID_STANDARD: Result := T.StandardName;
TIME_ZONE_ID_DAYLIGHT: Result := T.DayLightName;
end;
end;