ReNamer:Scripts:Import DLL: Difference between revisions
		
		
		
		
		
		Jump to navigation
		Jump to search
		
				
		
		
	
 (added nav link)  | 
				m (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">")  | 
				||
| 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';  | ||
Revision as of 14: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>