太简单了
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;
太简单了,这是我写的一个软件里面的一个函数,希望对你有帮助
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;