Sry Phoenix dass ich es nicht deutlicher hingeschrieben hatte
danke Alfi ich glaub dass entspricht dann eher dem was ich machen will. In Grund genommen brauche ich ja nur folgendes:
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;
Also ich erstelle damit ein Objekt und weise dem die Funktionen zu die ich als Admin ausführen möchte?
Kann mir jemand ein kurzes Beispiel posten? Einfach nur wie man das Objekt erstellt und dem dann sagt dass es beispielsweise einen Ordner in Program Files erstellen soll.