Active Desktop aktivieren

[mumu]

Hi!

weiß jemand, wie man den Active Desktop mit Delphi aktivieren bzw. deaktivieren kann?

danke schonmal

[mumu]

also ich bin jetzt selbst auf die lösung gekommen. Falls es einem Interessiert hier ein Beispielcode:

Delphi-Quellcode:

function AkivierenActiveDesktop(activate: boolean): Boolean;
const
  CLSID_AD: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  hObject: IUnknown;
  AD: IActiveDesktop;
  ComponentsOpt: TComponentsOpt;
begin
  hObject := CreateComObject(CLSID_AD);
  AD := hObject as IActiveDesktop;
  try
    ComponentsOpt.dwSize:=SizeOf(ComponentsOpt);
    AD.GetDesktopItemOptions(ComponentsOpt,0);
    ComponentsOpt.fActiveDesktop:=activate;
    AD.SetDesktopItemOptions(ComponentsOpt,0);
    AD.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
  finally
  end;
end;

[Jens Schumann]

Hallo,
wenn Du noch verrätst was TComponentsOpt ist, dann könnet man Deine Lösung auch nachvollziehen.

[mumu]

Dazu ein Auszug aus der MSDN.

Zitat:

COMPONENTSOPT Structure

--------------------------------------------------------------------------------

Contains the desktop item options.

Syntax

typedef struct _tagCOMPONENTSOPT {
DWORD dwSize;
BOOL fEnableComponents;
BOOL fActiveDesktop;
} COMPONENTSOPT;
Members

dwSize
DWORD value that contains the size of the structure.
fEnableComponents
BOOL value that determines if desktop items are enabled.
fActiveDesktop
BOOL value that determines if the Active Desktop is enabled.
Structure Information

Header shlobj.h
Minimum operating systems Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet Explorer 4.0