1177
社区成员
如何在没启动workstation服务时候获得本机的工作组
NetWkStaGetInfo和WNet*依赖于workstation服务,但是即使没启动此服务,也可以在我的电脑里改WORKGROUP.
在注册表里搜索改后名称,也只搜到了一个地方PolPrDmN,应该不是这里.
在注册表里搜索改后名称,也只搜到了一个地方PolPrDmN,应该不是这里.
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
huhuc 2010-01-17
- 打赏
- 举报
只98的不行,
那个代码也是用ActiveDS Typelib管理Window用户的
那个代码也是用ActiveDS Typelib管理Window用户的
socool627 2010-01-15
- 打赏
- 举报
up
bdmh 2010-01-15
- 打赏
- 举报
CCC的 2010-01-15
- 打赏
- 举报
function GetNetWorkgroup : string;
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
Result := '(n/a)';
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('System\CurrentControlSet\Services\VxD\VNETSUP',
false) then
Result := ReadString('Workgroup');
finally
CloseKey;
free;
end;
end;
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
Result := '(n/a)';
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('System\CurrentControlSet\Services\VxD\VNETSUP',
false) then
Result := ReadString('Workgroup');
finally
CloseKey;
free;
end;
end;