Delphi中如何控制Windows任务栏的显示

吴淑华
源代码网推荐
源代码网推荐 为了更有效地利用显示器的空间，多数程序员都有过这样的经验，即通过Windows任务栏属性对话框，在“任务栏选项”页中将任务栏设置为“自动隐藏”，并且为了在需要任务栏时操作方便，选择任务栏“总在最前”。完成上述设置后，当程序员编辑文档或编写代码时，任务栏会自动隐藏，增加了显示器的可利用空间；而当程序员需要操作任务栏时，只需将鼠标移动到任务栏所在位置的显示器边缘上，这时任务栏就会自动出现。但如果任务栏没有设置成“总在最前”，此时任务栏就不会自动弹出。
源代码网推荐 要控制Windows任务栏的隐藏和显示，可以通过调用一组API函数来实现。这组API函数分别是：
源代码网推荐 （1） FindWindow函数
源代码网推荐 该函数通过指定的类名和窗口名来检索指定的高层窗口句柄，如果检索成功，则返回窗口句柄，否则返回空；另外，需注意改函数不能用于查找子窗口。函数如下：
源代码网推荐 HWND FindWindow(LPCTSTR lpClassName, //类名指针
源代码网推荐 LPCTSTR lpWindowName //窗口名指针
源代码网推荐 );
源代码网推荐 （2） ShowWindow函数
源代码网推荐 该函数用于设置指定窗口的显示状态。函数如下：
源代码网推荐 BOOL ShowWindow(HWND hWnd, //指定窗口的句柄
源代码网推荐 Int nCmdShow //指定窗口的显示状态，可以设置为SW_HIDE，SW_SHOW等
源代码网推荐 );
源代码网推荐 （3） SetWindowPos函数
源代码网推荐 该函数用于设置指定窗口的大小、显示位置和显示顺序等信息。函数如下：
源代码网推荐 BOOL SetWindowPos(
源代码网推荐 HWND hWnd, // 指定窗口的句柄
源代码网推荐 HWND hWndInsertAfter, // 指定窗口的显示顺序，可以设为如下一组值：HWND_BOTTOM、HWND_NOTOPMOST、HWND_TOP、HWND_TOPMOST
源代码网推荐 int X, // 指定窗口的横坐标位置
源代码网推荐 int Y, // 指定窗口的纵坐标位置
源代码网推荐 int cx, // 指定窗口的宽度
源代码网推荐 int cy, // 指定窗口的长度
源代码网推荐 UINT uFlags // 指定窗口的尺寸和位置标记，可以取一组值或这些值的组合
源代码网推荐 );
源代码网推荐 下面本文以一个具体的例子，详细介绍一下在Delphi 5.0中实现Windows任务栏显示和隐藏的步骤。
源代码网推荐 1． 创建一个应用程序，在主窗体上增加二个TButton组件和一个TcheckBox组件。设置其中一个TButton组件的Caption属性为“隐藏Windows的任务栏”，设置另一个TButton组件的Caption属性为“显示Windows的任务栏”，设置TcheckBox组件的Caption属性为“总在最前”。
源代码网推荐 2． 编辑TForm1.Button1Click(Sender: TObject)
源代码网推荐 隐藏Windows的任务栏，代码如下：
源代码网推荐 procedure TForm1.Button1Click(Sender: TObject);
源代码网推荐 var
源代码网推荐 wndHandle: THandle; //用于存储指定窗口的句柄
源代码网推荐 wndClass: array[0..50] of Char; //用于存储类名
源代码网推荐 begin
源代码网推荐 strPCopy(@wndClass[0], "Shell_TrayWnd"); //获取任务栏类名
源代码网推荐 wndHandle := FindWindow(@wndClass[0],nil); //获取任务栏窗口的句柄
源代码网推荐 ShowWindow(wndHandle, SW_Hide); //隐藏Windows任务栏
源代码网推荐 button2.Enabled := True; //设置“显示Windows任务栏”按钮变为可操作状态
源代码网推荐 button1.Enabled := False; //设置“隐藏Windows任务栏”按钮变为不可操作状态
源代码网推荐 end;
源代码网推荐 3． 编辑TForm1.Button2Click(Sender: TObject)
源代码网推荐 显示Windows的任务栏，并判断“总在最前”TcheckBox组件是否选中，如果选中，则任务栏总是显示在最前方，否则任务栏显示在最底层。代码如下：
源代码网推荐 procedure TForm1.Button2Click(Sender: TObject);
源代码网推荐 var
源代码网推荐 wndHandle: THandle;
源代码网推荐 wndClass: array[0..50] of Char;
源代码网推荐 begin
源代码网推荐 strPCopy(@wndClass[0], "Shell_TrayWnd");
源代码网推荐 wndHandle := FindWindow(@wndClass[0],nil);
源代码网推荐 ShowWindow(wndHandle, SW_SHOW); //显示Windows的任务栏
源代码网推荐 //判断“总在最前”复选框是否选中
源代码网推荐 if CheckBox1.checked then //如果选中，则设置任务栏为最顶层窗口
源代码网推荐 SetWindowPos(wndHandle, HWND_TOPMOST, r.top, r.left, r.bottom, r.right, SWP_NOMOVE)
源代码网推荐 Else //否则，设置任务栏为最底层窗口
源代码网推荐 SetWindowPos(wndHandle, HWND_BOTTOM, r.top, r.left, r.bottom, r.right, SWP_NOMOVE);
源代码网推荐 //设置按钮的操作状态
源代码网推荐 button2.Enabled := False;
源代码网推荐 button1.Enabled := True;
源代码网推荐 end;
源代码网推荐 4． 打开Windows任务栏属性对话框，不选中“自动隐藏”和“总在最前”两个复选框，并确定后关闭该对话框。运行上述创建的应用程序，即可控制Windows任务栏的显示和隐藏。

软件开发网 www.mscto.com