1 unit laz.FakeMMSystem;
2 
3 {$mode objfpc}{$H+}
4 
5 interface
6 
7 uses
8   Classes, SysUtils, Types;
9 
timeBeginPeriodnull10 function timeBeginPeriod(x1: DWord): DWord;
11 
timeEndPeriodnull12 function timeEndPeriod(x1: DWord): DWord;
13 
timeGetTimenull14 function timeGetTime: DWORD;
15 
16 implementation
17 
timeBeginPeriodnull18 function timeBeginPeriod(x1: DWord): DWord;
19 begin
20 
21 end;
22 
timeEndPeriodnull23 function timeEndPeriod(x1: DWord): DWord;
24 begin
25 
26 end;
27 
timeGetTimenull28 function 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