Here we will talk about how to call functions in DLL. Let's take a simple example:[Code] varmypage: twizardpage; button: tnewbutton; CNT: integer; function getcurrentprocessid (): integer; External 'getcurrentprocessid @ c: \ windows \ system32 \ kernel32.dll '; procedure buttononclick (Sender: tobject); begin msgbox (inttostr (getcurrentprocessid (), mbinformation, mb_ OK); end; procedure merge (); beginmypage: = combine (wpwelcome, 'title: custom page ',' Description: This is my custom page '); button: = tnewbutton. create (mypage); button. width: = scalex (75); button. height: = scaley (23); button. caption: = 'tnewbutton '; button. onclick: = @ buttononclick; button. parent: = mypage. surface; end; The running effect is as follows:Statement: Function getcurrentprocessid (): integer;External 'getcurrentprocessid @ c: \ windows \ system32 \ kernel32.dll '; Declare the file, function, and defined function that references the DLL. Let's talk about the call details next time. |
from: http://www.360doc.com/content/13/0327/14/4221543_274237315.shtml