광산을 제외한 모든 애플리케이션을 최소화하는 방법은 무엇입니까?

Question

광산을 제외한 시스템에서 실행중인 모든 응용 프로그램을 최소화하고 싶습니다. 어떻게해야합니까?

은이 코드를 사용하지만, 그것은 단지 일부 에있는 컴퓨터 작동 :

procedure MinAllWnd_ByShell; 
VAR IntHwnd: Integer; 
begin 
IntHwnd:= FindWindow('Shell_TrayWnd', nil); 
PostMessage(IntHwnd, WM_COMMAND, 419, 0); 
end; 

다음

procedure TFrmMain.btnMinimizeAll_Click(Sender: TObject); 
begin 
{ Send MINIMIZE message } 
MinAllWnd_ByShell;               { This sends a message to Windows. Windows sends the minimize signal back to us after a delay } 
Delay(150);                 { We wait few miliseconds to receive the message in our message queue } 
Application.ProcessMessages;             { By now we should have received the message so we process the queue. } 

{ Now self restore } 
BringToFront; 
ShowWindow(frmMain.Handle, SW_RESTORE); 
end; 

합니다.

---

델파이 XE/윈 XP/윈도우 7

Answer 1

나는 이것이 좋은 생각 말하고 있지 않다, 그러나 당신은 시뮬레이션 승리 + M으로 419를 대체하기 위해 시도 할 수 :

keybd_event(VK_LWIN, 0, 0, 0); 
keybd_event(ord('M'), 0, 0, 0); 
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);