Active Desktop ausschalten..

Terra23 · Beiträge: 872 Win 8 Delphi 7

Nachdem Tino mich ja so nett drauf hingewiesen hat, bei einer neuen Frage, ein neues Topic zu erstellen, tue ich das hiermit. :-)

@Tino: Klang übrigens leicht etwas gereizt, kann das sein?

Nun ja, ich würde gern von euch wissen, wie ich den Active Desktop in Windows ausschalten kann und wie ich überhaupt prüfe, ob der aktiv ist.

Schreibt der sich vielleicht irgendwo in die Registry, so nach dem Motto: Wenn aktiv, dann 0, sonst 1 oder so?

Danke..

_________________
Hasta La Victoria Siempre

toms · Beiträge: 1099 Erhaltene Danke: 2

Hi,
Hab's mal so gemacht:
www.swissdelphicente.../showcode.php?id=735
www.swissdelphicente...showcode.php?id=1439

Terra23 · Beiträge: 872 Win 8 Delphi 7

Danke, ich lese mir das mal durch. Mein Tool funktioniert nämlich nicht, wenn der Active Desktop an ist. Geht das vielleicht auch noch etwas einfacher? Ich meine, schreibt der nicht irgend einen Integer in die Registrierung?!? :?:

_________________
Hasta La Victoria Siempre

Terra23 · Beiträge: 872 Win 8 Delphi 7

Ich habe mir das mal durchgelesen (bin auch hier im Forum auf einen ähnlichen Beitrag gestoßen; da soll man mal drauf kommen, Active mit "k" zu schreiben. :-)

) und habe mir das ausgedruckt. Nun brauche ich aber folgendes:

1) Wie kann ich bewerkstelligen, daß ShowMessage mit zeigt, das der Active Desktop an ist?
2) Wenn er an ist, wie schalte ich ihn aus?
3) Wenn ich ihn ausgeschaltet habe, wie schalte ich ihn am Schluß wieder an?

Ich bin im Netz auf etwas gestoßen, daß ermöglicht mir lediglich, den kompletten Karteireiter "Web" aus den Eigenschaften von Anzeige zu nehmen und so den AD zu deaktivieren. *g*

Danke im Vorraus.. :-)

_________________
Hasta La Victoria Siempre

Terra23 · Beiträge: 872 Win 8 Delphi 7

Also, ich habe nun folgendes genommen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

MyObject:=CreateComObject(CA);
ADesk:=MyObject As IActiveDesktop;
With Comopt Do
     Begin
     ZeroMemory(@Comopt, SizeOf(TComponentsOpt));
     dwSize:=SizeOf(Comopt);
     fEnableComponents:=bValue;
     fActiveDesktop:=False;
     End;
ADesk.SetDesktopItemOptions(Comopt, 0);
ADesk.ApplyChanges(AD_APPLY_ALL);

Meine Variablen sehen so aus:

markieren

Quelltext

1:
2:
3:
4:

  MyObject: IUnknown;
  ADesk: IActiveDesktop;
  Comopt: TComponentsOpt;
  bValue: Boolean;

Nun wollte ich folgendes machen: Wenn der Active Desktop an ist, soll sich das Programm das merken (Übergabe von True an einen Boolean) und beim Schließen darauf zugreifen.

Jedoch:

Der Wert bValue ist bei mir immer False, egal, ob der ActiveDesktop beim Programmstart an oder aus ist. Woran liegt das? Ich meine, es funktioniert ja soweit, daß der Active Desktop ausgeschaltet wird, aber es ist ja nervig, wenn die User den immer selbst wieder anschalten, oder?

_________________
Hasta La Victoria Siempre

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme