我遇到一个这样的问题：

[TIYILON]

有一个dll，里面做一些耗时操作，需要一个进度条显示进度。
如果用vc调用的话，应该可以直接传CProgressCtrl.
但是现在我是用delphi调用这个库文件，除了int还能传什么？
但是vcl的ProgressBar不能将Position属性按址传递

即：函数原型：long test(long *p){}
delphi :
-----------------------------------------------
longint test(longint *p){}
此时：test(ProgressBar.Position);
提示不能传属性

解决方法可以用send Message来实现？即delphi钩住一个消息。
dll每次需要写进度的时候，将进度当做消息参数发送给应用程序，
应用程序捕捉消息，取得消息参数的值。不知是否可行？

[windindance]

不需要呀。
var n:integer;
n:= ProgressBar.Position;
test(@n);

[TIYILON]

那么delphi引用long test(long *p){}

的时候怎么声明函数？
function Test(var n :longint):longint;
不行阿。。
是传指针么？

[TIYILON]

vc++
----------------------------------
long _stdcall Test(long *p)
{
*p = 20 ;
return 1;
}
----------------------------------
delphi
---------------------------------
function Test(n : Pointer):longint; StdCall; external 'test2.dll';

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:= ProgressBar1.Position;
test(@n);
showmessage(inttostr(ProgressBar1.Position));
nd;

结果发现好像根本没有赋值阿。。progressBar1的position还是0

[windindance]

n:= ProgressBar1.Position;
test(@n);
ProgressBar1.Position := n;
……………………………………
showmessage(inttostr(ProgressBar1.Position));