delphi编程之桌面图标设置

Delphi编程之桌面图标设置

用户的文件 {59031a47-3f72-44a7-89c5-5595fe6b30ee}

计算机 {20D04FE0-3AEA-1069-A2D8-08002B30309D}

网络 {F02C1A0D-BE21-4350-88B0-7367FC96EF3C}

控制面板 {5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0}

回收站 {645FF040-5081-101B-9F08-00AA002F954E}

值为0则显示，值为1则不显示

//转载请注明出处

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,Registry,ShlObj, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Reg:TRegistry;

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;

procedure TForm1.Button2Click(Sender: TObject);

var

Reg:TRegistry;

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;

procedure TForm1.Button3Click(Sender: TObject);

var

Reg:TRegistry;

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;

procedure TForm1.Button4Click(Sender: TObject);

var

Reg:TRegistry;

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;

procedure TForm1.Button5Click(Sender: TObject);

var

Reg:TRegistry;

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;

procedure TForm1.Button6Click(Sender: TObject);

var

Reg:TRegistry;

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;

procedure TForm1.Button7Click(Sender: TObject);

var

Reg:TRegistry;

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;

procedure TForm1.Button8Click(Sender: TObject);

var

Reg:TRegistry;

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.Button9Click(Sender: TObject);

var

Reg:TRegistry;

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;

procedure TForm1.Button10Click(Sender: TObject);

var

Reg:TRegistry;

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;

end.

来源：https://www.cnblogs.com/guowangyunxiao/articles/5292462.html

推荐分享