Dialog "Zeitzone ändern" nachbauen

[TUX_der_Pinguin]

Zitat von hathor:

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.