Desktop Anzeigen

[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