获取网络工作组名称

时间:2010-02-01 13:18:59  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:lse) then Result := ReadString('Workgroup'); finally CloseKey; free; end; end; ...
  正文:function GetNetWorkgroup : string; var Reg : TRegistry; begin Reg := TRegistry.create; Result := '(n/a)'; with Reg do try RootKey := HKEY_LOCAL_MACHINE; if OpenKey('SystemCurrentControlSetServicesVxDVNETSUP', false) then Result := ReadString('Workgroup'); finally CloseKey; free; end; end; 《获取网络工作组名称》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12719.html


关键字:

关于《获取网络工作组名称》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td