C语言写的DLL在Delphi里面调用的问题！！

[Summer1314]

我在VC++ 6.0环境下编写了一个DLL并导出如下：
extern "C" _declspec(dllexport)
unsigned long GetID(long * uch)
{
*uch = 10;
return 1;
}
然后在Delphi7里面这样调用：
function GetID(var uch: Integer): LongWord; external 'DLL.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
lw: Integer;
begin
lw := 1;
GetID(lw);
ShowMessage(IntToStr(lw));
end;
点击按钮后对话框显示的值是1，而不是DLL里修改后的10，这是怎么回事呀？

[beyondtkl]

unsigned long GetID(long * uch)
// 需要传入明显的指针

function GetID(pi: pInteger): LongWord; cdecl; external 'DLL.dll';
改成上面试试