delphi严重问题，进者有分!

Question

Function NewCoGetObject(pazName:PwideChar; pBindOptions:PbindOpts; Const iid:TIID; out ppv): Hresult; stdcall; external 'ole32.dll' name 'CoGetObject';
每次运行到这时就发生异常，说project client raised exception class EOleSysError with message '无效的语法',process我检查了语法是正确的呀
function MessageBox(HWnd: Integer; Text, Caption: PChar; Flags: Integer): Integer;   stdcall; external 'user32.dll' name 'MessageBoxA';这种情况运行都都正常呀我不知道是怎么回事???请大家帮帮我呀好急回了马上给分哈!

Answer 1

Function NewCoGetObject(pazName:PwideChar; pBindOptions:PbindOpts; Const iid:TIID; out ppv): Hresult; stdcall; external 'ole32.dll' name 'CoGetObject';
你能保证你的函数定义与Ole32。dll中的CoGetObject是一致的嘛？你这个是静态调入，用动态调入好测试一些哈，我怀疑你的函数定义没有一致哈！主要是参数类型是否正确哈！
   改哈！没有什么难度哈，

Answer 2

无语，建议你看看windows.pas里面怎么来调用dll的。那里面太多了……另外你写的这个我看着眼晕，恕我冒昧，我不看你写的这个。