Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi 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

zusammenfalten · markieren

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