ReNamer:Scripts:Import DLL: Difference between revisions

From den4b Wiki
Jump to navigation Jump to search
(added nav link)
m (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">")
Line 7: Line 7:
== Code ==
== Code ==


<source>
<syntaxhighlight lang="pascal">
function GetTickCount: Longint;
function GetTickCount: Longint;
   external 'GetTickCount@kernel32.dll stdcall';
   external 'GetTickCount@kernel32.dll stdcall';

Revision as of 16:00, 8 February 2017

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

<syntaxhighlight lang="pascal"> function GetTickCount: Longint;

 external 'GetTickCount@kernel32.dll stdcall';

procedure Sleep(Milliseconds: Cardinal);

 external 'Sleep@kernel32.dll stdcall';

begin

 FileName := IntToStr(GetTickCount);
 Sleep(10);

end. </source>