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

13003646492 2000-09-12 11:27:00

高手：
小生想在程序中知道自己正在工作的计算机的工作组名，如何实现？（不是网上邻居的信息）

...全文

216 8 打赏收藏转发到动态举报

写回复

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

NiceFeather 2000-09-13

打赏
举报

回复

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

SCUM 2000-09-13

打赏
举报

回复

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP\Workgroup
也存有工作组信息。

delphi 中可用 TRegistry 的实例读写注册表，读出的 Value 可转为 AnsiString，即可
用于 TEdit 了，有关 TRegistry 的属性和方法可以看看帮助。

stamf 2000-09-13

打赏
举报

回复

太简单了
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;

stamf 2000-09-13

打赏
举报

回复

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

13003646492 2000-09-13

打赏
举报

回复

这个问题的答案我等了好几个小时了，难道没有人能回答吗？

13003646492 2000-09-12

打赏
举报

回复

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

zxghl 2000-09-12

打赏
举报

回复

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

13003646492 2000-09-12

打赏
举报

回复

这个问题这么难吗？请各位高手赐教

4个Delphi网络编程实例源码精选，这几个实例分别为：动态更改DNS、在WinNT网络邻居中获取所有的工作组、在网络邻居上得到某台机器的磁盘空间、在网络邻居中获取指定工作组内的所有计算机及其共享资源信息等，相信这些尽管很小的网络小程序，会对你学习一些基础的delphi知识会起到很好的作用。　　在WinNT网络邻居中获取所有的工作组源码中，函数GetServerList列举出整个网络中的工作组名称，返回值为TRUE表示执行成功，参数List中返回服务器（工作组）的名称，获取整个网络中的文件资源的句柄，lphEnum为返回名柄，执行成功，开始获取整个网络中的网络类型信息。。。

《Delphi 7 新概念百例》是一本通过讲解Delphi实例，来说明使用Delphi编程时通常采用的编程思路以及具体方法的计算机书籍。通过对每个实例从编程思路和代码实现的详细分析和讲解，力求带领读者快速地提高自己的程序设计水平，并达到举一反三的目的。很多实例的重要部分都做了特别注意和技巧等提示，目的是强调一些技巧的使用或使读者尽量避免一些常见的错误，以使更高效地利用Delphi这个强大的程序开发工具。　　该书精选了100多个经典的实例从易到难、由浅入深、由简单到综合地进行讲解，内容涉及面也很广泛，基本上涵盖了用Delphi进行应用程序设计的方方面面，凝聚了作者多年的Delphi编程经验，相信对启发读者的思想并提高读者的编程水平台有很大帮助。　　该书主要面向中高级读者，但对那些熟悉Object Pascal语法并有一定编程经验的初级读者也很有帮助。本书也可以作为初涉Delphi的实例教材使用。　　本文件是《Delphi 7 新概念百例》的配书源代码，包含编译好的可执行文件。内容如下：├─综合应用篇│ ├─87 用TreeView来显示数据库信息│ ├─86 显示彩色数据表格│ ├─85 文件切割器│ ├─84 加密解密器│ ├─83 TButton增加OnMouseLeave事件│ ├─82 将IE收藏夹导出为HTML文件│ ├─81 NT Win2000中发送Winpop消息│ ├─80 制作无闪烁的动画│ ├─79 定制自己的幽灵程序│ ├─78 简单的文件查看器│ ├─77 简单的文件夹浏览器│ └─76 实现自己的控制面板├─练习提高篇│ ├─99 获取TRichEdit控件中光标所在行号│ ├─98 获取内存信息│ ├─97 获取CPU 信息│ ├─96 获取Windows的版本│ ├─95 临时文件的操作│ ├─94 获取Windows和System目录│ ├─93 将窗体大小限定在一定范围内│ ├─92 闪烁窗口│ ├─91 在窗体客户区用鼠标拖曳窗体│ ├─90 使TMemo组件带边界│ ├─89 给ListBox控件增加水平滚动条│ ├─88 运行时拖动控件│ ├─104 防止程序或系统关闭│ ├─103 设置屏幕分辨率│ ├─102 获取系统和显卡的BIOS信息│ ├─101 使应用程序不出现在任务栏上│ └─100 隐藏或显示桌面上的图标└─基础实例篇 ├─8第八节数据库技术 │ ├─75 通过注册表在程序中增减和修改数据源 │ ├─74 获取BDE的配置信息 │ ├─73 动态建立和使用别名 │ │ ├─在程序中动态地建立和使用别名(四) │ │ ├─在程序中动态地建立和使用别名(二) │ │ ├─在程序中动态地建立和使用别名(三) │ │ └─在程序中动态地建立和使用别名(一) │ ├─72 自动检测、建立数据库别名和数据表 │ ├─71 用Delphi进行数据库之间转换 │ ├─70 图像数据的存取 │ ├─69 压缩、反删除dBase或FoxPro数据表 │ ├─68 处理数据库日期型字段的显示与输入 │ │ └─数据库 │ └─67 在数据库中存取Word文档 ├─7第七节网络编程 │ ├─66 动态更改DNS │ ├─65 网络资源树形浏览 │ ├─64 实现网络驱动器的映射和断开 │ ├─63 在网络邻居上得到某台机器的磁盘空间 │ ├─62 在网络邻居中获取指定工作组内的所有计算机及其共享资源信息 │ ├─61 在WinNT-2000网络邻居中获取所有的工作组 │ ├─60 计算机名与IP地址的互相获取 │ ├─59 实现Ping操作 │ ├─58 网页浏览器 │ └─57 获取本机机器名、IP信息以及网卡的MAC地址 ├─6第六节多媒体技术 │ ├─56 实现图像之间的平滑过渡 │ ├─55 制作能播放Midi、Wav和Avi文件的播放器 │ ├─54 检测声卡是否安装 │ ├─53 获取Audio-CD的序列号 │ ├─52_关闭CD-ROM │ └─51 检测_设置CD-ROM是否自动运行 ├─5第五节图像技术 │ ├─50 创建Jpeg图像的缩略图 │ ├─49 实现图像的翻转 │ ├─48 多种渐变色的实现 │ ├─47 TColor与RGB值的互相转换 │ ├─46 将文本转换成图像 │ ├─45 提高对位图象素的访问速度 │ ├─44 将彩色位图转换为灰度图 │ ├─43 将图像从jpg,ico,bmp,wmf格式转换为emf格式 │ ├─42 将图像从jpg,ico,emf,wmf格式转换为bmp格式 │ └─41 将图像从bmp格式转换为Jpg格式 ├─4第四节 VCL分析 │ ├─40 消除在TEdit控件中按下回车键时的声音 │ ├─39 在StringGrid中设置只读栏 │ ├─38 加速TTreeView控件的填充和清空 │ ├─37 加速TListBox控件的填充和清空 │ ├─36 在TStringGrid控件中删除整行 │ ├─35 动态创建主菜单和菜单项 │ ├─34 使程序能在循环中响应界面操作 │ ├─33 在TListbox、TCombobox中实现自动搜索 │ ├─32 用剪贴板复制和粘贴图像 │ └─31 实现.dfm文件和.txt文件的互相转换 ├─3第三节 Shell研究 │ ├─30 为程序创建快捷方式 │ ├─29 获取Windows的若干特殊文件夹路径（二） │ ├─28 获取Windows的若干特殊文件夹路径（一） │ ├─27 抽取程序关联图标 │ ├─26 磁盘格式化的实现 │ ├─25 将文件加入“开始”菜单的“文档”中 │ ├─24 文件的拖放 │ ├─23 整个目录的复制、移动、删除 │ ├─22 将指定文件类型设置为与自己的应用程序相关联 │ └─21 文件的自动打开和超链接的实现 ├─2第二节系统探秘 │ ├─20 操作INI文件 │ ├─19 获取驱动器类型信息 │ ├─18 在自己的程序中关闭其它的程序 │ ├─17 使程序开机自动运行 │ ├─16 在自己的程序中打开或关闭IE窗口 │ ├─15 模拟鼠标的行为 │ ├─14 限制光标的移动区域 │ ├─13 获取或更改计算机名 │ ├─12 运行程序的单实例 │ └─11 隐藏任务栏 └─1第一节界面设计 ├─09 在系统菜单上添加自定义菜单项 ├─08 使窗体始终最大化 ├─07 使窗体始终最小化 ├─06 为窗体创建动画光标 ├─05 制作始终位于最上层的窗体 ├─04 制作带背景窗体 ├─03 制作圆形窗体 ├─02 制作无标题栏窗体 ├─10 给窗体边框“镶边” └─01 制作不可移动的窗体

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。...

目录： 1 Uppas40.htm Delphi 4增訂的Object Pascal 19K 2 Api_printer.htm Api函数列表-与打印有关 30K 3 Autocreate.htm 在Delphi3程序中自动检测、建立数据库别名 7K 4 Autoxize.htm DELPHI中自适应表单的实现 3K 5 Bat.htm 在Delphi中利用Tbatch组件完成数据批处理 5K 6 Bde.htm 如何在注册表中注册BDE 2K 7 Bjjlb.htm Delphi编辑俱乐部 4K 8 Cgi_1.htm CGI技术及其开发 11K 9 Cgi_2.htm CGI技术及其开发(二) 12K 10 Chang_backmap.htm 用Delphi实现壁纸更换 3K 11 Change_ip_dns.htm 任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址 1K 12 Colorcour.htm 让彩色光标出现在Delphi程序中 2K 13 Compon_mk.htm 面向组件的系统开发方法 2K 14 Comtech.htm COM/DCOM如何传递数组 2K 15 Comvsdcom.htm COM/DCOM的区别与联系 2K 16 Cookite.htm Delphi 3中Cookie的建立使用 6K 17 Copy_screen.htm 一个实用的Delphi屏幕拷贝程序的设计 11K 18 Create_oracle7.htm 开发基于ORACLE7数据库的管理信息系统 9K 19 Cs_fast.htm 提高客户机/服务器应用系统性能的一些方法 8K 20 Def_color_dlg.htm 用Delphi实现自定义颜色对话框及其构件 12K 21 Def_preview.htm 自定义快速报表的打印预览窗口 6K 22 Delete.htm 如何把文件删除到回收站中 1K 23 Delphi_c.htm 在Delphi与C++之间实现函数与对象共享 7K 24 Delphi_err.htm Delphi编译错误中文手册 34K 25 Delphi_net1.htm DELPHI与INTERNET 34K 26 Delphi_net2.htm DELPHI与INTERNET 46K 27 Delphi_quick_develop.htm Delphi之快速设计(程序设计篇) 8K 28 Delphi_quick_develop2.htm Delphi之快速设计(界面篇) 3K 29 Delphi23_io.htm 在DELPHI2.0/3.0中直接操作端口 3K 30 Delphivspb.htm 开发AS/400应用系统PB5与Delphi3的比较 9K 31 Device_isok.htm 检查驱动器是否就绪 1K 32 Dtccw03.htm 资源文件在DELPHI中的使用 10K 33 Dttray.htm 如何创建任务栏的应用程序 11K 34 Edit_sysmenu.htm 控制系统菜单 3K 35 Fix_sybase.htm 如何恢复Sybase SQL Anywhere的数据库 4K 36 Fixsysbase_in.htm 解决sybase用户数据库不能进入故障的一种方法 5K 37 From_move.htm 用Delphi实现无边界窗体的移动 3K 38 Function.htm 部分函数、命令、属性中文说明 13K 39 Get_form.htm Win95/98下监控运行的其他程序 2K 40 Get_info.htm 使用Delphi获取系列信息 3K 41 Get_net_friend.htm 如何在程序中动态取得Win95/98的网络邻居中的工作组及计算机名 12K 42 H_sort.htm 在DELPHI中用线程排序 4K 43 Happymouse.htm 用Delphi编制趣味动画鼠标 3K 44 Hint.htm 改造HINT的输出方式 5K 45 Howto_chinese_delphi.htm "Delphi之完全汉语"终结版 6K 46 If.htm Delphi数据集过滤技巧 4K 47 Img.htm Delphi下汉字输入法的编程及使用 5K 48 Index_notf.htm 怎样解决打开一个DBF表时的"Index not found.."错误 3K 49 Install.htm 如何制作Delphi程序安装盘 7K 50 Ip

内容索引:Delphi源码,网络相关,网络操作　　Delphi网络操作示例，都是些较简单的小程序，每一个都基本只完成一个功能，这些示例主要有用Delphi动态更改DNS地址；计算机名与IP地址的互相获取；Delphi实现Ping操作；实现网络驱动器的映射和断开；网络资源树形浏览；网页浏览器；在WinNT网络邻居中获取所有的工作组；在网络邻居上得到某台机器的磁盘空间；在网络邻居中获取指定工作组内的所有计算机及其共享资源信息等，有兴趣的朋友参考一下。

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章