具体代码如下:
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; end; procedure TForm1.Button2Click(Sender: TObject); begin Close; end; end.