{$EXTERNALSYM CoCreateInstance}
function CoCreateInstance(const clsid: TCLSID; unkOuter: IUnknown;
  dwClsContext: Longint; const iid: TIID; out pv): HResult; stdcall;function CoCreateInstance;              external ole32 name 'CoCreateInstance';
delphi调用的是ole32.dll中的函数。

解决方案 »

  1.   

    delphi 的帮助里面有
    函数说明如下;
    STDAPI CoCreateInstance(    REFCLSID rclsid, //Class identifier
        LPUNKNOWN pUnkOuter, //Object is or isn't part of an aggregate 
        DWORD dwClsContext, //Context for running executable code
        REFIID riid, //Interface identifier
        LPVOID * ppv //Pointer to storage of interface pointer
       );
      

  2.   

    delphi 的帮助里面有
    函数说明如下;
    STDAPI CoCreateInstance(    REFCLSID rclsid, //Class identifier
        LPUNKNOWN pUnkOuter, //Object is or isn't part of an aggregate 
        DWORD dwClsContext, //Context for running executable code
        REFIID riid, //Interface identifier
        LPVOID * ppv //Pointer to storage of interface pointer
       );
      

  3.   

    直接使用CreateComObject多好啊,有了CLSID,就可以动态调用了