刚刚小小的试了下,程序是一个简单的dll外加一个 调用它的exe。(需要装上这个才能编译:
fpc-crosswin32_2.0.4-060919_i386.deb)这两段简单的程序如下。
app.pas
1 program app;
2
3 { app use win32lib.dll }
4
5 procedure SaySomething(str:PChar);stdcall;external 'win32lib' name 'SaySomething';
6 function Add(a,b:Integer):Integer;stdcall;external 'win32lib' name 'Add';
7
8 var
9 a,b:Integer;
10 begin
11 SaySomething('Enter 2 integers:');
12