HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerCLSID{20D04FE0-3AEA-1069-A2D8-08002B30309D}(預設值)
修改為你要的名稱即可!
範例如下:
代碼: 選擇全部
procedure Tform1.Button3Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionExplorerCLSID{20D04FE0-3AEA-1069-A2D8-08002B30309D}', True) then
Reg.WriteString('','我的新電腦');
Reg.CloseKey;
Reg.Free;
end;