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;