Forum: Win32/Win64 API (native code)
Delphi
by Der schöne Günther,
13. Jul 2015
ID ist ein String. Wenn der kein Equals(..) kennt hast du System.SysUtils nicht in der uses-Liste ;-)
Ich muss aber auch sowieso noch eine grafische Oberfläche dazu bauen, habe es damit aber nicht sonderlich eilig. Wenn ich das mal gemacht habe kann ich dir ja auch nochmal Bescheid geben. Denn ich finde, es geht doch an sich alles bestens: Zeitzone feststellen, Zeitzone einstellen. Was...
Forum: Win32/Win64 API (native code)
Delphi
by Der schöne Günther,
13. Jul 2015
Ich hatte anhand von StandardName verglichen und war glücklich damit.
Das hatte es nicht mehr in den Upload geschafft.
function TTimeZoneHelper.Equals(Obj: TObject): Boolean;
var
asTimeZone: TTimeZone;
begin
if (not (Obj is TTimeZone)) then Exit(False);
asTimeZone := Obj as TTimeZone;
Forum: Win32/Win64 API (native code)
Delphi
by Der schöne Günther,
13. Jul 2015
Was hast du denn sonst erwartet?
Willst du den String "(UTC+01:00) Amsterdam, Berlin, Bern, Rom, Stockholm, Wien" haben?
Forum: Win32/Win64 API (native code)
Delphi
by Der schöne Günther,
10. Jul 2015
Hallo-
Es war insgesamt doch mehr Aufwand als ich gedacht hätte.
Anbei ein kleines Konsolenprogramm was dir alle Zeitzonen im System auflistet (formatiert und lokalisiert) und deine lokale Zone ändern kann.
Delphi 2009 war vor meiner Zeit, keine Ahnung wie viel von dem Code man da übernehmen kann.
Forum: Win32/Win64 API (native code)
Delphi
by Der schöne Günther,
9. Jul 2015
Was für ein Zufall, da bin ich momentan auch grade dran: Auf einer Kiosk-Anwendung soll der Inbetriebnehmer jetzt auch die lokale Zeitzone einstellen können.
Die im System vorhandenen Zeitzonen findet man anscheinend wirklich nur, wie schon genannt, in der Registry. Dort musst du den Binarblob auslesen und kannst dir anhand der zwei weiteren Schlüssel dort wieder die Zeitzone zusammenbasteln....