Systemzeit setzen (NT,W2000,XP)

[Sharky]

Hai,

nur zur kontrolle. Habe ich das so richtig verstanden mit den TimeZone-Informationen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 systemzeit : TSystemTime;
 zeitzone : TTimeZoneInformation;
 localdiff : Integer;
begin
 Case GetTimeZoneInformation (zeitzone) of
  TIME_ZONE_ID_STANDARD : localdiff := (zeitzone.Bias div 60);
  TIME_ZONE_ID_DAYLIGHT : localdiff := (zeitzone.Bias div 60) + (zeitzone.DaylightBias div 60);
 end;
 with systemzeit do
  begin
   wYear := 2003;
   wMonth := 9;
   wDay := 18;
   wHour := StrToInt (Edit1.Text) + localdiff;
   wMinute := StrToInt (Edit2.Text);
   wSecond := StrToInt (Edit3.Text);
   wMilliseconds := 0;
  end;
 SetSystemTime (systmzeit);
end;