深藍色論壇

代碼: 選擇全部

     
    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;