Ist der Active Desktop aktiv?

[chris]

hi,

ich mache es in meiner komponente so:

Delphi-Quellcode:

function TIEInstVer.GetADAvailable;
var
  actdesk: IActiveDesktop;
  compopt: TComponentsOpt;
begin
  Result := false;
  actdesk := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
  try
    ZeroMemory(@compopt, sizeof(compopt));
    compopt.dwSize := sizeof(compopt);
    actdesk.GetDesktopItemOptions(compopt, 0);
    if compopt.fActiveDesktop then Result := true
  except
  end
end;

habe bisher keine bugreports etc bekommen, bei mir funktioniert es reibungslos.