发信人: zengxi()
整理人: yueqs(2000-12-05 19:17:48), 站内信件
|
procedure TMain.mnHideTaskClick(Sender: TObject);
var wndHandle:thandle;
wndClass:array[0..50] of char;
begin
mnHidetask.Checked:=not mnhidetask.Checked;
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
if mnHidetask.Checked then
ShowWindow(wndHandle, SW_HIDE)
else
showWindow(wndHandle,Sw_Show);
end;
此乃隐藏windows任务条也!!
--
------------------------------------ ///////////
---------------------------------- ///////////
--------------------------------- //////////
------------------------------- /////-/////
------------------------------ /////---/////
----------------------------- /////-----/////
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.98.118.99]
|
|