1:

st.wYear := 1970;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

//
// Liste mit den Zeitservern aus der INI-Datei lesen
//
const
  szDateTimeIni = 'DateTime.ini';
  szIniKey      = 'serverlist';
  BUFSIZE       = 16348;

procedure LoadTimeServers(hCombobox: HWND);
var
  buf, p        : pchar;
  kl            : array of string;
  i             : integer;
begin
  // Inhalt der Combobox leeren
  SendMessage(hCombobox,CB_RESETCONTENT,0,0);

  // Topicnamen aus der INI lesen
  GetMem(buf,BUFSIZE);
  try
    SetLength(kl,0);
    if(GetPrivateProfileString(szIniKey,nil,nil,buf,BUFSIZE,
      pchar(ExtractFilePath(paramstr(0)) + szDateTimeIni)) <> 0) then
    begin
      p := buf;
      while(p^ <> #0) do begin
        SetLength(kl,length(kl)+1);
        kl[length(kl)-1] := p;

        inc(p,strlen(p)+1);
      end;
    end;
  finally
    FreeMem(buf,BUFSIZE);
  end;

  // Werte aus der INI lesen, & in die Combobox eintragen
  if(length(kl) > 0) then begin
    GetMem(buf,BUFSIZE);
    try
      for i := 0 to length(kl)-1 do begin
        ZeroMemory(buf,BUFSIZE);
        if(GetPrivateProfileString(szIniKey,@kl[i][1],nil,
          buf,BUFSIZE,pchar(ExtractFilePath(paramstr(0)) + szDateTimeIni)) <> 0) then

        SendMessage(hCombobox,CB_ADDSTRING,0,LPARAM(buf));
      end;
    finally
      FreeMem(buf,BUFSIZE);
    end;

    SetLength(kl,0);
  end;

  // Eintrag auswählen, wenn vorhanden
  if(SendMessage(hCombobox,CB_GETCOUNT,0,0) > 0) then
    SendMessage(hCombobox,CB_SETCURSEL,0,0);
end;					

1:
2:
3:
4:
5:

[serverlist]
svr1=ntpserv.fh-magdeburg.de
svr2=ntps1-0.cs.tu-berlin.de
svr3=ntps1-1.cs.tu-berlin.de
svr4=ntps1-1.uni-erlangen.de					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

// time ist schon der "gedrehte" Wert
procedure SyncTime(time: Cardinal);
const
  SYSTEM_SECONDS = 10000000;
var
  bias: Integer;
  ft: TFileTime;
  st: TSystemTime;
  li: TULargeInteger;
  tz: TTimeZoneInformation;
begin
  st.wYear := 1900;
  st.wMonth := 1;
  st.wDayOfWeek := 0;
  st.wDay := 1;
  st.wHour := 0;
  st.wMinute := 0;
  st.wSecond := 0;
  st.wMilliseconds := 0;

  if not SystemTimeToFileTime(st, ft) then Exit;

  case GetTimeZoneInformation(tz) of
    TIME_ZONE_ID_DAYLIGHT: bias := tz.Bias + tz.DaylightBias;
    TIME_ZONE_ID_STANDARD: bias := tz.Bias + tz.StandardBias;
    TIME_ZONE_ID_UNKNOWN: bias := 0;
  else
    Exit;
  end;
  bias := -bias;

  li.QuadPart := Int64(time) * SYSTEM_SECONDS + Int64(bias * 60) * SYSTEM_SECONDS;
  li.QuadPart := li.QuadPart + TULargeInteger(ft).QuadPart;

  if not FileTimeToSystemTime(TFileTime(li), st) then Exit;

  SetLocalTime(st);
  SendMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0);
end;