Ja, OK. Hätte noch weiter nach dem timeBeginPeriod schauen sollen.

Siehe ClockRes v2.1

Nach der Änderung mit ClockRes kann man es mit folgendem Code überprüfen:

zusammenfalten · markieren

Delphi-Quellcode:

program SystemTimeAdjustment;

{$APPTYPE CONSOLE}

uses
// SysUtils, windows;
  System.SysUtils, Winapi.Windows;

  var a,b:DWORD; c:bool;

begin
  GetSystemTimeAdjustment(a,b,c);
  WriteLn('System time adjustment: '+FloatToStr(b / 10000)+' ms');
  WriteLn;
  Writeln('Press any key...');
  Readln;
end.