com组件 已服务模式注册 其他程序无法通过GetActiveObject来获取这个组件

com组件 已服务形式注册 其他程序无法通过GetActiveObject来获取这个组件？
如题~~

程序A（注册成SYSTEM服务）

function RegisterActiveObject(unk: IUnknown; const clsid: TCLSID;
  dwFlags: Longint; out dwRegister: Longint): HResult; stdcall;
在服务中调用此方法 

程序B

GetActiveObject失败  

可能原因是 系统用户角色不同 服务是SYSTEM角色 
程序B 是Administrator角色

求解决方法~~

[解决办法]
用CreateOleObject呢