Dialog "Zeitzone ändern" nachbauen

[TUX_der_Pinguin]

Ich gucke es mir Montag auf der Arbeit an. Vielen Dank schon mal das du hier deine Arbeit teilst

[TUX_der_Pinguin]

So es ist Montag und ich habe mir deinen Code angesehen, soweit sehr gut nur fehlt mir da immer noch die Möglichkeit zu sehen welche Zeitzone zur Zeit im System eingestellt ist. Oder bin ich so blind das ich diese Funktion nicht erkenne !?

[Der schöne Günther]

Ich habe das nicht neu gebaut, sondern würde TTimeZone.Local aus System.DateUtils verwenden. Wenn es das bei dir noch nicht gibt, kannst du WinApi.Windows.GetDynamicTimeZoneInformation(..) verwenden.

Bei der Gelegenheit- Der TTimeZoneHelper könnte vielleicht noch Equals(..) überschreiben um zu prüfen ob zwei Zeitzonen gleich sind.

[TUX_der_Pinguin]

Zitat von Der schöne Günther:

Ich habe das nicht neu gebaut, sondern würde TTimeZone.Local aus System.DateUtils verwenden. Wenn es das bei dir noch nicht gibt, kannst du WinApi.Windows.GetDynamicTimeZoneInformation(..) verwenden.

Bei der Gelegenheit- Der TTimeZoneHelper könnte vielleicht noch Equals(..) überschreiben um zu prüfen ob zwei Zeitzonen gleich sind.

Ich habe mir mal die Testversion von Delphi XE8 heruntergeladen, jedoch ob ich das neue TTimeZone.Local.DisplayName das "ältere" GetTimeZoneInformation oder GetDynamicTimeZoneInformation verwende erhalte ich nur "Mitteleuropäische Zeit" und damit kann ich leider nichts anfangen.

[Der schöne Günther]

Was hast du denn sonst erwartet?

Willst du den String "(UTC+01:00) Amsterdam, Berlin, Bern, Rom, Stockholm, Wien" haben?

[TUX_der_Pinguin]

Zitat von Der schöne Günther:

Was hast du denn sonst erwartet?

Willst du den String "(UTC+01:00) Amsterdam, Berlin, Bern, Rom, Stockholm, Wien" haben?

Ähm ja, wie soll man den sonst wissen welche Zeitzone aus der Liste aktuell im System eingestellt ist!?

[Der schöne Günther]

Ich hatte anhand von StandardName verglichen und war glücklich damit.

Das hatte es nicht mehr in den Upload geschafft.

Delphi-Quellcode:

function TTimeZoneHelper.Equals(Obj: TObject): Boolean;
var
   asTimeZone: TTimeZone;
begin
   if (not (Obj is TTimeZone)) then Exit(False);
   asTimeZone := Obj as TTimeZone;

   Result := ID.Equals(asTimeZone.ID);
end;

[hathor]

Zitat von TUX_der_Pinguin:

Zitat von Der schöne Günther:

Was hast du denn sonst erwartet?

Willst du den String "(UTC+01:00) Amsterdam, Berlin, Bern, Rom, Stockholm, Wien" haben?

Ähm ja, wie soll man den sonst wissen welche Zeitzone aus der Liste aktuell im System eingestellt ist!?

Es gibt in WINDOWS seit WIN7 ein Tool: TZUTIL.exe

Windows-Zeitzonen-Hilfsprogramm

Syntax:
TZUTIL </? | /g | /s TimeZoneID[_dstoff] | /l>

Parameter:
/? Zeigt Informationen zur Syntax an.
/g Zeigt die aktuelle Zeitzonen-ID an.
/s TimeZoneID[_dstoff]
Legt die aktuelle Zeitzone unter Verwendung der angege-
benen Zeitzonen-ID fest. Mit dem Suffix "_dstoff" werden
Sommerzeitanpassungen f�r die Zeitzone deaktiviert
(sofern zutreffend).
/l Führt alle gültigen Zeitzonen-IDs und Anzeigenamen auf.
Ausgabe:
<Anzeigename>
<Zeitzonen-ID>

Beispiele:
TZUTIL /g
TZUTIL /s "Pacific Standard Time"
TZUTIL /s "Pacific Standard Time_dstoff"

Anmerkungen:
Durch den Beendigungscode "0" wird angegeben, dass der
Befehl erfolgreich ausgeführt wurde.

Beispiel:
tzutil /l >F:/timezones.txt
schreibt alle gültigen Zeitzonen-IDs und Anzeigenamen in ein File.