1,183
社区成员
发帖
与我相关
我的任务
分享
function SameDispatch(one, two: IDispatch): Boolean;
var
oi: IObjectIdentity;
begin
Result := (one as IUnKnown) = (two as IUnknown);
if not Result then
begin
oi := one as IUnKnown as IObjectIdentity;
Result := oi.IsEqualObject(two as IUnKnown) = S_OK;
end;
end;