Desktop Anzeigen

[gothic_mike]

Moin,

Zitat von Luckie:

Dumdidum.

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!
Das war's zwar nicht wirklich, aber ich war mal ganz mutig 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...
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...

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