//隐藏任务栏和桌面图标

最新推荐文章于 2018-01-31 19:34:36 发布

weixin_30680385

最新推荐文章于 2018-01-31 19:34:36 发布

阅读量154

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/delphichm/p/3532072.html

//隐藏任务栏和桌面图标

unit MainUnit;
//Download by http://www.codefans.net
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TMainForm = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    RadioGroup3: TRadioGroup;
    RadioGroup4: TRadioGroup;
    procedure RadioGroup1Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup3Click(Sender: TObject);
    procedure RadioGroup4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.RadioGroup1Click(Sender: TObject);
var
hTask: THandle;
begin
hTask:= FindWindow('Shell_TrayWnd', nil);
if RadioGroup1.ItemIndex= 0 then
ShowWindow(hTask, SW_HIDE)
else
ShowWindow(hTask, SW_SHOW);
end;

procedure TMainForm.RadioGroup2Click(Sender: TObject);
var
hDesktop: THandle;
begin
hDesktop:= FindWindow('ProgMan', nil);
if RadioGroup2.ItemIndex= 0 then
ShowWindow(hDesktop, SW_HIDE)
else
ShowWindow(hDesktop, SW_SHOW);
end;

procedure TMainForm.RadioGroup3Click(Sender: TObject);
var
hTask, hButton: THandle;
begin
hTask:= FindWindow('Shell_Traywnd', nil);
hButton:= FindWindowEx(hTask, 0, 'Button', nil);
if RadioGroup3.ItemIndex= 0 then
ShowWindow(hButton, SW_HIDE)
else
ShowWindow(hButton, SW_SHOW);
end;

procedure TMainForm.RadioGroup4Click(Sender: TObject);
var
hTask, hTIcon: THandle;
begin
hTask:= FindWindow('Shell_Traywnd', nil);
hTIcon:= FindWindowEx(hTask, 0, 'ReBarWindow32', nil);
if RadioGroup4.ItemIndex= 0 then
ShowWindow(hTIcon, SW_HIDE)
else
ShowWindow(hTIcon, SW_SHOW);
end;

end.

转载于:https://www.cnblogs.com/delphichm/p/3532072.html