GetActiveObject + IShellDispatch2 = Operation unavailable.

[Dezipaitor]

Ich versuche mich gerade an ein bisschen Shellprogrammierung. Dazu möchte ich die ShellExecute vom Interface IShellDispatch2 aufrufen.
Jedoch bekomme ich bei der Instanzerstellung nur : Operation unavailable.

Unitdownload: RVShlDisp

Delphi-Quellcode:

program Project7;

{$APPTYPE CONSOLE}

uses
  RVShlDisp,
  ActiveX,
  ComObj,
  SysUtils;

var P : IUnknown;
    Shell : IShellDispatch2;
    HR : HRESULT;
begin
  CoInitialize(nil);


//  OleCheck(
  HR := GetActiveObject(IID_IShellDispatch2, nil, P);
  //==
  //P := GetActiveOleObject('Shell.Application');
  Shell := P as IShellDispatch2;

end.

Was stimmt nicht?

THX

[Dezipaitor]

Mit
P := CreateOleObject('Shell.Application'); funktioniert es.