显示桌面的语句怎么写

Question

请教 显示桌面的语句怎么写 或是 相关的API

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(GetDesktopWindow(),'open',
  'C:\WINDOWS\Application Data\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf','',nil,0);
end;
或：
var hDesktop:Thandle;
hDesktop := FindWindow('Progman', nil);
     ShowWindow(hDesktop, SW_HIDE);//hideall
     ShowWindow(hDesktop, SW_show);//showall

Answer 2

模拟WIN+M键：
  keybd_event(VK_LWIN,0,0,0);
  keybd_event(Ord('M'),0,0,0);
  keybd_event(Ord('M'),0,KEYEVENTF_KEYUP,0);
  keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0);