Original Delphi Programming Win10 Desktop Icon settings

The specific code is as follows:

UnitUnit1;InterfaceusesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms, Dialogs, Comctrls, Stdctrls, Extctrls,re Gistry,shlobj;typeTForm1=class(tform) Pagecontrol1:tpagecontrol;    Tabsheet1:ttabsheet;    Groupbox1:tgroupbox;    Checkbox1:tcheckbox;    Checkbox2:tcheckbox;    Checkbox3:tcheckbox;    Checkbox4:tcheckbox;    Checkbox5:tcheckbox;    Button1:tbutton;    Button2:tbutton; procedureButton1Click (Sender:tobject); procedureButton2click (Sender:tobject); Private    {Private Declarations}   Public    {Public Declarations}  End;varForm1:tform1; Reg:tregistry;Implementation{$R *.DFM}procedureTform1.button1click (sender:tobject);begin//ifCheckbox1.checked ThenbeginReg:=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);//Display Computer/This computer/this computerReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil)//Refresh Desktop DisplayEndElsebeginReg:=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);//Hide Computer/This computer/this computerReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil);//Refresh Desktop DisplayEnd;ifCheckbox2.checked ThenbeginReg:=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);//Show Recycle binReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil)//Refresh Desktop DisplayEndElsebeginReg:=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);//Hide Recycle binReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil);//Refresh Desktop DisplayEnd;ifCheckbox3.checked ThenbeginReg:=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);//Show UsersReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil)//Refresh Desktop DisplayEndElsebeginReg:=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);//Hide UsersReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil);//Refresh Desktop DisplayEnd;ifCheckbox4.checked ThenbeginReg:=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);//Display Control PanelReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil)//Refresh Desktop DisplayEndElsebeginReg:=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);//Hide Control PanelReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil);//Refresh Desktop DisplayEnd;ifCheckbox5.checked ThenbeginReg:=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);//Display NetworkReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil)//Refresh Desktop DisplayEndElsebeginReg:=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);//Hide NetworkReg.free; SHChangeNotify (Shcne_assocchanged,shcnf_idlist,Nil,Nil);//Refresh Desktop DisplayEnd;End;procedureTform1.button2click (sender:tobject);beginClose;End;End.

Original Delphi Programming Win10 Desktop Icon settings