Ist der Active Desktop aktiv?

[Alexander]

Hallo,
gibt es eine zuverlässige Methode um herauszufinden, ob der Active Desktop aktiviert ist?
Ich habe zwar bereits zwei gefunden (http://www.swissdelphicenter.ch/de/showcode.php?id=735), doch der erste funktioniert nur sporadisch und der zweite gar nicht .
Beim ersten scheint zusätzlich mein Programm Windows kurzzeitig zu blockieren.

Beides ist irgendwie nicht das beste . Kennt ihr eine funktionierende Möglichkeit?

Vielen Dank.
Grüße, Alexander

[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.

[Alexander]

Ich habe es gerade mit D7 Prof. und D2005 Prof. ausprobiert und bei mir (WinXP Prof.) scheint auch diese Methode nicht zu funktionieren .

Wo kann man den Active Directory eigentlich bei XP ausschalten? Geht das überhaupt noch

[Dust Signs]

Zitat von Alexander:

Active Directory

Redest du jetzt von Active Directory oder Active Desktop?

Dust Signs

[Alexander]

Ups. Meinte natürlich den Active Desktop

Das kommt davon, wenn man sich mit mehreren Dingen gleichzeitig beschäftigt