Gallery
Software
Music
Programming
Archive
Monday, Aug 19 Week 34
function tick64:int64;stdcall; //GetTickCount 64-Bit

implementation

function tick64:int64;
external 'winmm.dll' name 'timeGetTime';

Example

procedure TForm1.Button1Click(Sender: TObject);
var i:int64;
begin
i:=tick64;
sleep(50);
caption:='Time: '+intToStr(tick64-i)+' ms.';
end;

Related pages of Get Tick 64-Bit on Delphi 32-Bit

Bytes and data-types
Delphi examples
Delphi programming
Programming