Hier die Lösung:
Delphi-Quellcode:
Function InterfaceSupportsMember (anInterface : IDispatch; Const aMembername : WideString) : Boolean;
Var
iDispID : TDispId;
Res : Integer;
Begin
Res :=anInterface.GetIDsOfNames(GUID_NULL, @aMembername, 1, LOCALE_SYSTEM_DEFAULT, @iDispID);
Result := Res <> Integer(DISP_E_UNKNOWNNAME)
End;
Und ein Danke an Hagen und OregonGhost. Ich werd mich mal in der Firma beschweren gehen.
[edit]
Const vor
aMembername gesetzt [/edit]