Desktop Anzeigen

[gothic_mike]

Hallo zusammen,

ich habe mal ne frage, weis zufällig jemand, wie ich die Funktion "Desktop Anzeigen"
von der datei "Desktop anzeigen.scf" oder der WinXP Taskleiste, in meinem Programm realisieren kann?
Danke schonmal...

[gekmihesg]

so glaub ich:

Delphi-Quellcode:

postmessage(HWND_BROADCAST, WM_SYSCOMMAND, WM_MINIMIZE, 0);

[toms]

Eher so:

Delphi-Quellcode:

PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MINIMIZE, 0);

Aber Achtung: den Code nicht ausführen sonst gibt's ein Chaos!!

[Pseudemys Nelsoni]

wozu gibts den code wenn er chaos macht? :gruebel:

[toms]

Zitat:

wozu gibts den code wenn er chaos macht?

Gegenfrage: Hast du den Code ausprobiert?

[Pseudemys Nelsoni]

nein hab ich nicht

[toms]

Zitat:

PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MINIMIZE, 0);

Damit sendest du an jedes Control ein Kommando, dass es sich minimieren soll.
Also z.B auch an einen Button, TreeView usw...

[Pseudemys Nelsoni]

Zitat:

Zitat von Pseudemys Nelsoni

wozu gibts den code wenn er chaos macht? :gruebel:

:P

bzw wieso postet ihr ihn

[Luckie]

Um den fehlerhaften Code von gekmihesg zu korrigieren, denke ich mal.

[gothic_mike]

Hallo,

Zitat:

Zitat von toms

Eher so:

Delphi-Quellcode:

PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MINIMIZE, 0);

Aber Achtung: den Code nicht ausführen sonst gibt's ein Chaos!!

super idee :-D
aber ich suchte eher was brauchbares...

weis denn keiner wie man diese Funktion aus der "Desktop Anzeigen.scf" selbst basteln kann,
inkl. der wiederherstellen funktion...

[chris]

hi,

guck mal hier nach

[gothic_mike]

Hallo,

Zitat:

Zitat von chris

hi,

guck mal hier nach

danke, das bringt mich der lösung schon etwas näher, nur bräuchte ich dazu noch ne funktion, mit der ich rausfinden kann, ob gerade alle fenster minimiert sind, um sie dann wieder anzuzeigen...

das ganze soll genauso funktionieren, wie der link "Desktop Anzeigen.scf"...

[c113plpbr]

Wenn man sich mal die Datei Desktop anzeigen anschaut, kommt man auf folgendes:
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

Vielleicht kommst du damit weiter

[gothic_mike]

Hallo,

Zitat:

Zitat von c113plpbr

Wenn man sich mal die Datei Desktop anzeigen anschaut, kommt man auf folgendes:
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

Vielleicht kommst du damit weiter

da bin ich schon ne ganze weile am grübeln, wie mir das weiterhelfen könnte,
ich denke mal, das sich hinter ToggleDesktop ne Message verbirgt, die an die Taskbar gesendet wird,
nur welche? :gruebel:

[Chewie]

Die Suche im PSDK ergibt folgendes: Das IShellDispatch4-Interface mit seiner Methode ToggleDesktop.

[gekmihesg]

ich habs grad mal ausprobiert ;)
is saulustig!
sollte man irgendwo einbaun um leute zu ärgern

aber ich glaub ich muss jetzt erstmal meinen pc neu starten...

oh mein sartmenü geht nimma :)

[gothic_mike]

Hallo,

Zitat:

Zitat von Chewie

Die Suche im PSDK ergibt folgendes: Das IShellDispatch4-Interface mit seiner Methode ToggleDesktop.

guter tipp, nur leider hab ich keinen plan, wie ich das hinbekommen soll, diese funktion zu nutzen... :gruebel:

[Chewie]

Zitat:

Zitat von gothic_mike

guter tipp, nur leider hab ich keinen plan, wie ich das hinbekommen soll, diese funktion zu nutzen... :gruebel:

Ich leider auch nicht. :? Interfaces sind für mich bisher noch ein Buch mit sieben Siegeln.

[gothic_mike]

Moin,

da anscheinend keiner eine Lösunug für das Problem hat, frage ich mal anders:

kommt man eventuell an das Contextmenü der Taskbar ran, dann könnte ich ja eventuell den Menüpunkt
"Desktop Anzeigen" / "Geöffnete Fenster anzeigen" von da aus nutzen. :gruebel:

[Luckie]

Dumdidum. :mrgreen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Keybd_event(VK_LWIN, 0, 0, 0); 
  Keybd_event(Byte('M'), 0, 0, 0); 
  Keybd_event(Byte('M'), 0, KEYEVENTF_KEYUP, 0); 
  Keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0); 
end;

[gothic_mike]

Moin,

Zitat:

Zitat von Luckie

Dumdidum. :mrgreen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Keybd_event(VK_LWIN, 0, 0, 0); 
  Keybd_event(Byte('M'), 0, 0, 0); 
  Keybd_event(Byte('M'), 0, KEYEVENTF_KEYUP, 0); 
  Keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0); 
end;

Danke! :thuimb:
Das war's zwar nicht wirklich, aber ich war mal ganz mutig :-D und hab statt Win+M einfach mal Win+D probiert, und siehe da, genau das wars, was ich suchte. Hätte ich auch schon eher drauf kommen können, mal paar Tastenkombinationen zu probieren... :wall:
Was mich nun nur noch interessieren würde, ob's für das "Desktop Anzeigen" auch einen Api-aufruf gibt, aber das gehört ja nicht wirklich hier her...

:dp:

[chris]

hi,

hab gerade noch etwas anderes gefunden um alle fenster zu minimieren

Delphi-Quellcode:

var
  h: HWnd;
begin
  h:=handle;
  while h > 0 do
   begin
     if isWindowVisible(h) then postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
     h:=getnextwindow(h,GW_HWNDNEXT)
   end;

[GeMo]

ich weiss nicht obs euch noch hilft...
aber ich hab einen weg gefunden, die die form trotz "DEKTOP anzeigen"-klick immer angezeigt wird!

Ich hab einfach einen Timer erstellt mit dem Intervall 50...
der timer is enabled und bei "OnTimer" wird einfach:
Form.FormStyle := fsStayOnTop; gesetzt!
klappt bei mir wunderbar! :D