delphi编程之Win10桌面图标设置

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, Registry, ShlObj;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Reg:TRegistry;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked then

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{20D04FE0-3AEA-1069-A2D8-08002B30309D}',0); //显示计算机/这台电脑/此电脑

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil)//刷新桌面显示

end

else

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{20D04FE0-3AEA-1069-A2D8-08002B30309D}',1); //隐藏计算机/这台电脑/此电脑

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil);//刷新桌面显示

end;

if CheckBox2.Checked then

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{59031a47-3f72-44a7-89c5-5595fe6b30ee}',0); //显示用户

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil)//刷新桌面显示

end

else

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{59031a47-3f72-44a7-89c5-5595fe6b30ee}',1); //隐藏用户

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil);//刷新桌面显示

end;

if CheckBox3.Checked then

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{645FF040-5081-101B-9F08-00AA002F954E}',0); //显示回收站

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil)//刷新桌面显示

end

else

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{645FF040-5081-101B-9F08-00AA002F954E}',1); //隐藏回收站

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil);//刷新桌面显示

end;

if CheckBox4.Checked then

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0}',0); //显示控制面板

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil)//刷新桌面显示

end

else

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0}',1); //隐藏控制面板

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil);//刷新桌面显示

end;

if CheckBox5.Checked then

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}',0); //显示网络

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil)//刷新桌面显示

end

else

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_CURRENT_USER;

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel',True);

Reg.WriteInteger('{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}',1); //隐藏网络

Reg.Free;

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST,nil,nil);//刷新桌面显示

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

end.

推荐分享