[我的電腦]如何重新命名?

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1380
註冊時間: 2008年 11月 26日, 00:49

[我的電腦]如何重新命名?

文章 tim »

[我的電腦]修改方式可以修改 registry 的方式來進行,
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; 
多多留言, 整理文章, 把經驗累積下來.....
回覆文章