Delphi调用C++DLL示例

首先创建C++的DLL：

在VS2005中创建C++的MFC DLL；名字就取为DelphiDLL，然后打开DelphiDLL.cpp文件，在默认生成代码的后面加上如下函数代码：

extern "C" _declspec(dllexport) int maxs(int x,int y)
{
return x-y;
}

extern "C" _declspec(dllexport) void mes()
{
MessageBoxA(NULL,"Fuck!","You",MB_OK);
}

然后生成DLL。

然后创建Delphi VCL窗体程序，调用此DLL。

首先将生成好的DLL复制到Delphi工程目录下面，在

var
Form1: TForm1; 上面添加代码：

function maxs(x,y:integer):integer;cdecl;

procedure mes;cdecl;

再在

implementation

{$R *.dfm} 下面添加代码：

function maxs;external 'DelphiDLL.dll' name 'maxs';

procedure mes;external 'DelphiDLL.dll' name 'mes';

然后调用即可：

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(inttostr(maxs(1,2)));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
mes;
end;