请问如何调用带参数的dll?

[aerol]

我会调用不带参数的dll,如dll有一个ShowImage()函数,void __fastcall
声明:void (__stdcall *ShowImage)();
实现:
TForm1::Button1Click(TObject *Sender)
{
if(DLLInstall==NULL) DLLInstall=LoadLibrary("NewForm.dll");
if(DLLInstall)
{
ShowImage=(void (__stdcall*)())GetProcAddress(DLLInstall,"ShowImage");
if(ShowImage) ShowImage();
else ShowMessage("Can not obtain Pointer");
}
else ShowMessage("Can Not Load NewForm.dll");
}

可是如果函数是带参数的怎么办?比如 ShowImage(int count,AnsiString c)
怎么声明呢?调用GetProcAddress怎么写呢?

[coolfire729]

声明:void (__stdcall *ShowImage(int count,AnsiString c)))();

[ljianq]

声明:typedef void __declspec(dllimport) WINAPI ShowImage(int,AnsiString );
实现:
TForm1::Button1Click(TObject *Sender)
{
ShowImage* show;
if(DLLInstall==NULL) DLLInstall=LoadLibrary("NewForm.dll");
if(DLLInstall)
{
show=(ShowImage*)GetProcAddress(DLLInstall,"ShowImage");
int m=3;
AnsiString str="dsfsd";
if(show) show(m,str);
else ShowMessage("Can not obtain Pointer");
}
else ShowMessage("Can Not Load NewForm.dll");
}

[ljianq]

注意：如果要通用（别的语言也能使用），不要使用AnsiString等类型的参数

[sunmedia]

使用的方法和函数一样，将参数传入就可以了