Gebietsschema & Zeitzone

[Tpercon]

Wie ermittel ich das auf dem System eingestellte Gebietsschema? & die zugehörige Zeitzone?

[Jens Schumann]

Hallo,
in der MSDN Online Library steht folgendes
GetTimeZoneInformation
Dort findest Du bestimmt auch eine API-Funktion zum Gebietsschema

Die benötigte Struktur (Parameter) ist in Windows.pas als TTimeZoneInformation deklariert (Zeile 4524 (Delphi 5)

[Tpercon]

Das habe ich auch schon gefunden, nur werde ich daraus leider nicht wirklich schlau!

[Jens Schumann]

Hallo,
ich denke so sollte es klappen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   TZI : TTimeZoneInformation;
begin
  GetTimeZoneInformation(TZI);
  ShowMessage(TZI.StandardName+#13#10+TZI.DaylightName);
end;

[Tpercon]

Ja!

Die Zeitzone lese ich jetzt so aus:

Delphi-Quellcode:

function TForm1.GetTimeZone:string;
var TZI : TTimeZoneInformation;
begin
 case GetTimeZoneInformation(TZI) of
  TIME_ZONE_ID_UNKNOWN: result:= 'Unbekannt';
  TIME_ZONE_ID_DAYLIGHT: result:= TZI.DaylightName;
  TIME_ZONE_ID_STANDARD: result:= TZI.StandardName;
 else result:= 'Unbekannt';
 end;
end;

Hat jemand eine Idee für das Gebietsschema?