请问怎样使桌面上能看得见的窗体全部隐藏?(30分)

hmFeng · 2001-04-23

或者使他们最小化也行!

xk · 2001-04-23

procedure MinimizeAll; 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; end;

joove · 2001-04-23

隐藏桌面: var hDesktop : THandle; begin hDesktop := FindWindow('Progman', nil); ShowWindow(hDesktop, SW_HIDE); end; 显现桌面: var hDesktop : THandle; begin hDesktop := FindWindow('Progman', nil); ShowWindow(hDesktop,sw_restore); end;

joove · 2001-04-23

本程序我已经调试过

hmFeng · 2001-04-29

感谢joove的帮助,但我要的不是隐藏桌面,而是要最小化所有窗口!

Fyx · 2001-04-29

要最小化所有窗口？xk的方法不是吗？

beta · 2001-04-30

按下 Win+M 键也可以，但是不知道用发送虚拟键值的方法能否实现该功能

杜成福 · 2001-04-30

keybd_event(91, MapVirtualKey( 91, 0 ), 0 , 0 );  // win 键按下   keybd_event(77, MapVirtualKey( 77, 0 ), 0 , 0 );  // M 键按下   keybd_event(77, MapVirtualKey( 77, 0 ), KEYEVENTF_KEYUP , 0 );  // M 键抬起   keybd_event(91, MapVirtualKey( 91, 0 ), KEYEVENTF_KEYUP , 0 );  // win 键抬起

wantlong · 2001-05-15

//to hmFeng: //隐藏任务栏 procedure ShowTaskbar(Visible: boolean); var   hTaskBarWindow : HWnd; begin   hTaskBarWindow:=FindWindow('Shell_TrayWnd',nil);   if hTaskBarWindow<>0 then     if Visible then       ShowWindow(hTaskBarWindow, SW_SHOW)     else       ShowWindow(hTaskBarWindow, SW_HIDE) end; //开始按钮 procedure EnableButton(Flag:Boolean); begin   if Flag then   EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0, 'Button', nil),True)   else   EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),False); end;

tczxm · 2001-05-15

装一个wacthcat的程序就行了 要的话我给你发一个

kalituo · 2001-05-15

请给我一份,谢谢 kalituo@263.net

hmFeng · 2001-11-22

接受答案了.

请问怎样使桌面上能看得见的窗体全部隐藏?(30分)

hmFeng

Unregistered / Unconfirmed

xk

Unregistered / Unconfirmed

joove

Unregistered / Unconfirmed

joove

Unregistered / Unconfirmed

hmFeng

Unregistered / Unconfirmed

Fyx

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

杜成福

Unregistered / Unconfirmed

wantlong

Unregistered / Unconfirmed

tczxm

Unregistered / Unconfirmed

kalituo

Unregistered / Unconfirmed

hmFeng

Unregistered / Unconfirmed

Similar threads