Delphi中隐藏任务栏和桌面图标
2010-05-29 19:32
363 查看
1.隐藏任务栏
如下图所示建立工程:
代码如下:
2.隐藏桌面图标
如下图所示建立工程:
代码如下:
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.
相关文章推荐
- wince隐藏任务栏与去除桌面图标 快捷方式
- wince隐藏任务栏与桌面图标
- wince隐藏任务栏与桌面图标
- [Delphi]显示、隐藏桌面图标
- VC隐藏任务栏和桌面图标
- 隐藏系统的任务栏、桌面图标
- WIN10隐藏任务栏和桌面图标(简易实现)
- 隐藏桌面图标和任务栏
- wince隐藏任务栏与桌面图标
- VC隐藏任务栏和桌面图标
- wince隐藏任务栏与去除桌面图标 快捷方式
- 隐藏桌面图标和任务栏
- //隐藏任务栏和桌面图标
- wince隐藏任务栏与桌面图标
- Delphi 在任务栏隐藏程序图标
- Delphi XE4 主窗体隐藏之后任务栏没有图标显示。
- wince隐藏任务栏与桌面图标
- WINCE 隐藏任务栏、去除桌面图标和桌面背景
- Delphi 在任务栏隐藏程序图标
- Win8桌面可有可无的系统图标回收站隐藏技巧