动态连接库提问，怎么传递参数，急！

Question

我现在用VC显示调用一个DELPHI写的窗口：
typedef void (WINAPI * TESTDLL)();
HINSTANCE hmod;
hmod = ::LoadLibrary ("test.dll");
if(hmod==NULL)
{
AfxMessageBox("Fail");
}
TESTDLL lpproc;
lpproc = (TESTDLL)GetProcAddress(hmod,"Show");
if(lpproc!=(TESTDLL)NULL)
(*lpproc)();

FreeLibrary(hmod);
现在显示一个窗口没问题，但怎么才能传递参数呢
假如我定义Show为：
function Show(i:integer):integer;stdcall;export;
begin
  Result:=i;
end;这时候怎么办？只要能解决问题，隐式调用也可以！

Answer 1

typedef int (WINAPI * TESTDLL)(int);TESTDLL lpproc;
lpproc = (TESTDLL)GetProcAddress(hmod,"Show");
if(lpproc!=(TESTDLL)NULL)
{
 int result = (*lpproc)(0);
}

Answer 2

用了上面这位高手的方法：
  报下面的错：
  error C2197: 'void (__stdcall *)(void)' : too many actual parameters怎么办？是不是在调用时也要声明是STDCALL，在哪声明呢？

Answer 3

你把
typedef void (WINAPI * TESTDLL)();
改成
typedef int (WINAPI * TESTDLL)(int);
了没有?