ReNamer:Scripts:Import DLL

From den4b Wiki
Revision as of 12:51, 7 February 2010 by Den4b (talk | contribs) (Created page with 'This simple script demonstrates the syntax for importing functions from DLL files. Two functions are imported from a common "kernel32.dll" which exists on all Windows platforms.…')
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

This simple script demonstrates the syntax for importing functions from DLL files.

Two functions are imported from a common "kernel32.dll" which exists on all Windows platforms. One function which gets the current tick count (number of milliseconds that have elapsed since the system was started) and a simple sleep function.

Code

function GetTickCount: Longint;
  external 'GetTickCount@kernel32.dll stdcall';

procedure Sleep(Milliseconds: Cardinal);
  external 'Sleep@kernel32.dll stdcall';

begin
  FileName := IntToStr(GetTickCount);
  Sleep(10);
end.