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;
begin

end;

end.