Difference between revisions of "ReNamer:Scripts:Import DLL"

From den4b Wiki
Jump to navigation Jump to search
(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.…')
(No difference)

Revision as of 12:51, 7 February 2010

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.