自己对DELPHI学习的一点体会

				隐藏/显示系统的任务栏？ (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 而已。
				对其它程序进行操作也能达到类似的效果。
				
				 
				 
				
				
				--------------------------------------------------------------------------------