1 unit laz.FakeMMSystem; 2 3 {$mode objfpc}{$H+} 4 5 interface 6 7 uses 8 Classes, SysUtils, Types; 9 timeBeginPeriodnull10function timeBeginPeriod(x1: DWord): DWord; 11 timeEndPeriodnull12function timeEndPeriod(x1: DWord): DWord; 13 timeGetTimenull14function timeGetTime: DWORD; 15 16 implementation 17 timeBeginPeriodnull18function timeBeginPeriod(x1: DWord): DWord; 19 begin 20 21 end; 22 timeEndPeriodnull23function timeEndPeriod(x1: DWord): DWord; 24 begin 25 26 end; 27 timeGetTimenull28function timeGetTime: DWORD; 29 var 30 ATime: TSystemTime; 31 begin 32 //todo: properly implement 33 GetLocalTime(ATime); 34 Result := ATime.MilliSecond; 35 end; 36 37 end. 38 39