在DELPHI中，如何知道自己这台计算机的工作组名？

Question

记得有专门的API
另外，研究一下注册表，直接去读就可以了。
好像是在：
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName

Answer 1

小生比较业余，如何将注册表的内容展现于一个EDIT组级上？

Answer 2

to zxghl:13003646492问你的是“正在工作的计算机的工作组名”，不是“计算机名”！

Answer 3

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP\Workgroup
也存有工作组信息。delphi 中可用 TRegistry 的实例读写注册表，读出的 Value 可转为 AnsiString，即可
用于 TEdit 了，有关 TRegistry 的属性和方法可以看看帮助。

Answer 4

太简单了
function returnSystemInfo:string;
var
  regini:TRegIniFile;
begin
  regini:=TRegIniFile.Create('');
  regini.RootKey:=HKEY_LOCAL_MACHINE;
  regini.OpenKey('SYSTEM\CURRENTCONTROLSET\SERVICES\VxD', false);
  result := result + LoadLocalFileStr('workgroup','工作组:')+regini.ReadString('VNetSup', 'WorkGroup', '')+#13;
  regini.CloseKey;
    {The key for NetWare Servers is NWNP32 instead of MSNP32 }
  regini.OpenKey('System\CurrentControlSet\Services\MSNP32', false);
  result := result + LoadLocalFileStr('domain','所在域:')+regini.ReadString('NetWorkProvider', 'AuthenticatingAgent', '')+#13;
  regini.CloseKey;
  regini.free;
end;

Answer 5

太简单了，这是我写的一个软件里面的一个函数，希望对你有帮助
function returnSystemInfo:string;
var
  regini:TRegIniFile;
begin
  regini:=TRegIniFile.Create('');
  regini.RootKey:=HKEY_LOCAL_MACHINE;
  regini.OpenKey('SYSTEM\CURRENTCONTROLSET\SERVICES\VxD', false);
  result := result + LoadLocalFileStr('workgroup','工作组:')+regini.ReadString('VNetSup', 'WorkGroup', '')+#13;
  regini.CloseKey;
    {The key for NetWare Servers is NWNP32 instead of MSNP32 }
  regini.OpenKey('System\CurrentControlSet\Services\MSNP32', false);
  result := result + LoadLocalFileStr('domain','所在域:')+regini.ReadString('NetWorkProvider', 'AuthenticatingAgent', '')+#13;
  regini.CloseKey;
  regini.free;
end;