Delphi中隐藏任务栏和桌面图标

最新推荐文章于 2020-05-04 21:57:02 发布

原创最新推荐文章于 2020-05-04 21:57:02 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #任务 #button #forms #windows #shell

Delphi未了情专栏收录该内容

66 篇文章

订阅专栏

本文提供了一个简单的代码示例，演示如何通过编程方式隐藏计算机的任务栏和桌面图标，包括隐藏和恢复操作。

部署运行你感兴趣的模型镜像

1.隐藏任务栏

如下图所示建立工程：

代码如下：

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} 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); end; 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_RESTORE); end; end.

2.隐藏桌面图标

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var hDesktop : THandle; begin hDesktop := FindWindow('Progman', nil); ShowWindow(hDesktop, SW_HIDE); //隐藏桌面图标 end; procedure TForm1.Button2Click(Sender: TObject); var hDesktop : THandle; begin hDesktop := FindWindow('Progman', nil); ShowWindow(hDesktop, SW_SHOW); //显示桌面图标 end; end.

您可能感兴趣的与本文相关的镜像