AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Dialog "Zeitzone ändern" nachbauen

Dialog "Zeitzone ändern" nachbauen

Ein Thema von TUX_der_Pinguin · begonnen am 9. Jul 2015 · letzter Beitrag vom 13. Jul 2015
Antwort Antwort
Seite 1 von 3  1 23   
TUX_der_Pinguin

Registriert seit: 1. Jun 2005
Ort: Anholt (NRW)
603 Beiträge
 
Delphi 11 Alexandria
 
#1

Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 11:52
Hallo DPler,

ich würde gern in meinem Programm die Option anbieten die Zeitzone des Systems zu ändern, ähnlich dem Windows Dialog.

dialog_zeitzone_aendern.png


Mithilfe der Registry konnte ich mir schon eine ComboBox bauen die die Liste der Zeitzonen enthält, zumindest unter Windows XP hat dies funktioniert für Windows 7 muss ich da wohl noch was anpassen.

Aber zu meinem eigentlichen Problem, wie bekomme ich raus welche Zeitzone (also aus der Liste) zur Zeit eingestellt ist?

Mit GetTimeZoneInformation() z.B. erhalte ich nur "Mitteleuropäische Zeit" und nicht "(UTC+01:00) Amsterdam, Berlin, Bern, Rom, Stockholm, Wien" wie komme ich also an letzteres ran? Und wie ändere ich dann die Zeitzone wenn ich eine andere Zone aus der Liste auswähle?

Ich bin gerade etwas ratlos.
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 11:57
Hmmm, es gibt den Dialog doch schon ... einfach in die Systemeinstellung und die Zeitzone ändern, schon wird die Zeitzone des Systems geändert.

Warum willst du einen Dialog nachbauen, obwohl es den schon gibt?

Oder kann es evtl. sein, dass du die Zeitzone eigentlich nur für deine Anwendung ändern müsstest (wenn du nur wüsstest wie)?
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
TUX_der_Pinguin

Registriert seit: 1. Jun 2005
Ort: Anholt (NRW)
603 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 12:04
Hmmm, es gibt den Dialog doch schon ... einfach in die Systemeinstellung und die Zeitzone ändern, schon wird die Zeitzone des Systems geändert.

Warum willst du einen Dialog nachbauen, obwohl es den schon gibt?

Oder kann es evtl. sein, dass du die Zeitzone eigentlich nur für deine Anwendung ändern müsstest (wenn du nur wüsstest wie)?
Es geht um eine Art Kiosk Anwendung, sprich der Anwender kommt an den Windows Dialog gar nicht ran.
Der Anwender soll aber ein paar Optionen doch ändern können, Datum und Uhrzeit. Da habe ich gedacht warum
nicht auch die Zeitzone, wichtig wäre das nicht ist mehr interessehalber ob es geht.
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#4

AW: Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 13:15
Delphi-Quellcode:
uses Shellapi;
...
ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW);
...
Oder so - tut das Gleiche:
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject);
var FN, strParams : String;
begin
//rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,/
 strParams:= 'shell32.dll,Control_RunDLL timedate.cpl,,/';
 FN:='rundll32.exe';
ShellExecute(Application.Handle,NIL,PWChar(FN), PWChar(strParams),NIL, SW_Normal);
end;

Geändert von hathor ( 9. Jul 2015 um 14:04 Uhr)
  Mit Zitat antworten Zitat
TUX_der_Pinguin

Registriert seit: 1. Jun 2005
Ort: Anholt (NRW)
603 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 15:17
Delphi-Quellcode:
uses Shellapi;
...
ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW);
...
Oder so - tut das Gleiche:
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject);
var FN, strParams : String;
begin
//rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,/
 strParams:= 'shell32.dll,Control_RunDLL timedate.cpl,,/';
 FN:='rundll32.exe';
ShellExecute(Application.Handle,NIL,PWChar(FN), PWChar(strParams),NIL, SW_Normal);
end;
Daran hatte ich noch nicht gedacht. Ich würde aber dennoch gerne wissen wie man die aktuelle Zeitzone in der Liste auswählt und wie man dann die Zeitzone ggf. ändern kann.
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

Registriert seit: 5. Mär 2009
Ort: Hamburg
569 Beiträge
 
Delphi XE8 Professional
 
#6

AW: Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 15:42
Moin,

such mal nach
"GetTimeZoneInformation" und "SetTimeZoneInformation" . . . da sollte sich noch was finden lassen.
Markus H.
  Mit Zitat antworten Zitat
TUX_der_Pinguin

Registriert seit: 1. Jun 2005
Ort: Anholt (NRW)
603 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 16:10
Moin,

such mal nach
"GetTimeZoneInformation" und "SetTimeZoneInformation" . . . da sollte sich noch was finden lassen.
Naja nicht so wirklich den GetTimeZoneInformation liefert, wie ich eingangs geschrieben habe, nur eine unspezifische Antwort ( "Mitteleuropäische Zeit" ). In der Liste stehen aber detaillierte Informationen wie z.b. "(UTC+01:00) Amsterdam, Berlin, Bern, Rom, Stockholm, Wien". Wie sollte ich also mit GetTimeZoneInformation() entscheiden ob "UTC+1 Amsterdam, Berlin" oder "UTC+1 Sarajevo, Skopje" eingestellt ist. Klar die Zeitzone ist schon die gleiche aber ich will ja die Auswahl anbieten die auch der Standard Windows Dialog bietet.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

AW: Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 16:36
Die erweiterten Informationen stehen in der Registry: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones

Die Frage ist jetzt, ob es dafür eine API Funktion gibt oder ob man die selbst zuordnen und auslesen muss.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
TUX_der_Pinguin

Registriert seit: 1. Jun 2005
Ort: Anholt (NRW)
603 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 16:45
Die erweiterten Informationen stehen in der Registry: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones

Die Frage ist jetzt, ob es dafür eine API Funktion gibt oder ob man die selbst zuordnen und auslesen muss.
Genau daher kommen die Informationen zum erstellen einer Liste aller im System verfügbaren Zeitzonen, wie sie auch im Standard Windows Dialog aufgelistet werden.

Die Frage ist eher steht da auch irgendwo welche Zeitzone zur Zeit aktuell eingestellt ist und lässt sich das dort ändern und wenn ja wie? Ich denke einfach etwas in der Registry ändern heißt ja nicht unbedingt das das System die Änderung auch mitbekommt und sofort anwendet. Fragen über Fragen.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#10

AW: Dialog "Zeitzone ändern" nachbauen

  Alt 9. Jul 2015, 16:49
Was willst du den jetzt machen? Ich dachte dir geht es darum die erweiterten Informationen anzuzeigen? Das diese Information nur zum Lesen und Anzeigen da sind sollte wohl klar sein. Ändern der Zeitzone geht mit SetTimeZone....irgendwas.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf