隐藏显示系统的任务栏？ (2000年12月13日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 43 行

隐藏/显示系统的任务栏？ (2000年12月13日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:484  
(http://www.codesky.net)  

--------------------------------------------------------------------------------


--------------------------------------------------------------------------------
！答：
试试以下代码：
.

Procedure TForm1.Button1Click(Sender: TObject);
// 开始隐藏任务栏
Var
hWnd : Integer;
begin
hWnd := FindWindow('Shell_TrayWnd', '');
If hWnd <> 0 then
ShowWindow(hWnd, SW_HIDE);
end;

Procedure TForm1.Button2Click(Sender: TObject);
// 恢复显示任务栏
Var
hWnd : Integer;
begin
hWnd := FindWindow('Shell_TrayWnd', '');
If hWnd <> 0 then
ShowWindow(hWnd, SW_SHOW);
end;


分析其原理，无非任务栏也是一个窗口，只不过这个的类型是非 Shell_TrayWnd 而已。
对其它程序进行操作也能达到类似的效果。

 
 


--------------------------------------------------------------------------------