lazarus-ccr/components/virtualtreeview-unstable/units/gtk2/mmsystem.pas

unit mmsystem;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Types;
  
function timeBeginPeriod(x1: DWord): DWord;

function timeEndPeriod(x1: DWord): DWord;

function timeGetTime: DWORD;

implementation

function timeBeginPeriod(x1: DWord): DWord;
begin

end;

function timeEndPeriod(x1: DWord): DWord;
begin

end;

function timeGetTime: DWORD;
var
  ATime: TSystemTime;
begin
  //todo: properly implement
  GetLocalTime(ATime);
  Result := ATime.MilliSecond;
end;

end.