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

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

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.