Difference between revisions of "ReNamer:Scripts:Import DLL"
Jump to navigation
Jump to search
(added nav link) |
m (Text replacement - "</source>" to "</syntaxhighlight>") |
||
| (One intermediate revision by the same user not shown) | |||
| Line 7: | Line 7: | ||
== Code == | == Code == | ||
| − | < | + | <syntaxhighlight lang="pascal"> |
function GetTickCount: Longint; | function GetTickCount: Longint; | ||
external 'GetTickCount@kernel32.dll stdcall'; | external 'GetTickCount@kernel32.dll stdcall'; | ||
| Line 18: | Line 18: | ||
Sleep(10); | Sleep(10); | ||
end. | end. | ||
| − | </ | + | </syntaxhighlight> |
Latest revision as of 15:01, 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
function GetTickCount: Longint;
external 'GetTickCount@kernel32.dll stdcall';
procedure Sleep(Milliseconds: Cardinal);
external 'Sleep@kernel32.dll stdcall';
begin
FileName := IntToStr(GetTickCount);
Sleep(10);
end.