全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1386
推到 Plurk!
推到 Facebook!

請問如何替"我的電腦"或"磁碟機"做更名

尚未結案
iamjsn
初階會員


發表:78
回覆:95
積分:44
註冊:2002-08-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-06-15 12:22:17 IP:203.204.xxx.xxx 未訂閱
我想寫個一隻程式,能替"我的電腦"或"磁碟機"等特別目錄做更名的功能 本來有看過shelltreeview的更名程式碼,不過發現這個元件作更名後再去展開節點就會發生錯誤,看來是有bug,所以不知各位先進有沒有什麼特別的方法能對這些特別目錄或一般檔案目錄更名的好方法呢?謝謝。
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-06-22 23:32:02 IP:61.62.xxx.xxx 未訂閱
磁碟機的更名其實就是 command 下的 vol 指令, 可以使用 SetVolumeLabel API 來進行即可, 如:    SetVolumeLabel('e:', 'testdrive');    至於[我的電腦]修改方式可以修改 registry 的方式來進行,  HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{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('\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}', True) then
    Reg.WriteString('','我的新電腦');
  Reg.CloseKey;
  Reg.Free;
end;
Egn
一般會員


發表:29
回覆:54
積分:16
註冊:2005-04-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-05-25 19:00:50 IP:210.80.xxx.xxx 未訂閱
那請問要如何在我的電腦裏用程式新增一個磁碟名稱呢..我現在想要透過程式來幫user新增網路磁碟...
系統時間:2024-06-02 17:45:02
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!