GetTimeZoneInformation и околностите

dw:=GetTimeZoneInformation(TZInfo);
LabelSysDateTimeId.Caption:=Format(LabelSysDateTimeId.Hint,[TimeZoneInfo_ToString(dw)]);

{}function TimeZoneInfo_ToString(aTimeZone: DWord): string;
begin
if aTimeZone=DWORD($FFFFFFFF) then begin
Result:='TIME_ZONE_ID_INVALID';
end else begin
if aTimeZone=0 then begin
Result:='TIME_ZONE_ID_UNKNOWN';
end else begin
if aTimeZone=1 then begin
Result:='TIME_ZONE_ID_STANDARD';
end else begin
if aTimeZone=2 then begin
Result:='TIME_ZONE_ID_DAYLIGHT';
end else begin
Result:='TIME_ZONE_ID_'+IntToStr(aTimeZone);
end;
end;
end;
end;
end;

Съдържаниет е скрито
Влезте за да го видите