这个怎么转成delphi的？

[lght]

CComVariant vtIn;
vtIn.vt = VT_I4;
vtIn.lVal = MAKELONG(pt.x, pt.y);
CComVariant vtOut;
hr = pct->Exec(&CGID_ShellDocView, nCmdID, OLECMDEXECOPT_DONTPROMPTUSER, &vtIn, &vtOut);

pct为IOleCommandTarget
不知道怎么在delphi传参数给pct.exec的最后两个参数。

function Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD; const vaIn: OleVariant; var vaOut: OleVariant):
HResult; stdcall;

怎么给olevariant像上面VC那样加个类型？直接给olevariant赋值然后传过去不行。

[lght]

转换成功，调用成功，被调用函数退出时却弹出variant类型错误，靠

[雪碧爱可乐]

给个OleVariant的指针试试！