Danke Luckie,
das hat mir in Bezug auf die grundsätzliche
ActiveX-Implementierung weitergeholfen.
Allerdings hänge ich bei Deklaration der Methode/Funktion:
Delphi-Quellcode:
function NewCoGetObject(pazName: PWideChar; pBindOptions: PBindOpts3;
const iid: TIID;
out ppv): HResult;
stdcall;
external '
ole32.dll'
name '
CoGetObject';
function CoCreateInstanceAsAdmin(WndHandle: HWND;
clsid: TCLSID;
iid: TIID;
out ppv): HRESULT;
var
Bo : TBindOpts3;
Moniker : PWideChar;
begin
Moniker := PWideChar(WideString('
Elevation:Administrator!new:' +
GuidToString(
clsid)));
FillChar(Bo, SizeOf(Bo), #0);
Bo.hwnd := WndHandle;
Bo.cbStruct := SizeOf(Bo);
Bo.dwClassContext := CLSCTX_LOCAL_SERVER;
Result := NewCoGetObject(Moniker, @Bo, iid, ppv);
end;
Ich muß CoCreateInstanceAsAdmin in der Typ-Bibliothek angeben finde aber nicht die richtigen Parametertypen am wenigsten für "out ppv".
Eine Idee ?
Gruß
Frank