怎样得到局域网中所有的计算机名或IP地址 找一本关于如何用TCP/IP进行网络编程的书看一看,我因在网吧上网,没带书不好意思 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var Computer: Array[1..500] of String[25]; ComputerCount: Integer;procedure FindAllComputers(Workgroup : String);Var EnumHandle: THandle; WorkgroupRS: TNetResource; Buf: Array[1..500] of TNetResource; BufSize: Integer; Entries: Integer; Result: Integer;begin ComputerCount := 0; Workgroup := Workgroup + #0; FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0); With WorkgroupRS do begin dwScope := 2; dwType := 3; dwDisplayType := 1; dwUsage := 2; lpRemoteName := @Workgroup[1]; end; WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle ); Repeat Entries := 1; BufSize := SizeOf(Buf); Result := WNetEnumResource( EnumHandle, Entries, @Buf, BufSize ); If (Result = NO_ERROR) and (Entries = 1) then begin Inc( ComputerCount ); Computer[ ComputerCount ] := StrPas(Buf[1].lpRemoteName); end; Until (Entries <> 1) or (Result <> NO_ERROR); WNetCloseEnum( EnumHandle );end; {找到所有的计算机} 安装了 Embarcadero RAD Studio XE2,点击菜单弹出错误 求操作数据库代码 这是什么编码?(UP有分) 可以用Delphi绘制三维图形吗? StringGrid中嵌入Edit的奇怪问题 出5000元,求开发一个门锁管理系统,半个月左右,delphi开发,哪位有时间,请立即联系 邮件的加密和认证,给答案出就放分!!UP有分!! 如何用sql语句实现既简单又有难度的查询? 弃用金山毒霸改用KV300,散分! 怎么样为delphi编出的程序减肥 关于用写字板打开文本文件问题 关于类的构建?
var
Computer: Array[1..500] of String[25];
ComputerCount: Integer;
procedure FindAllComputers(Workgroup : String);
Var
EnumHandle: THandle;
WorkgroupRS: TNetResource;
Buf: Array[1..500] of TNetResource;
BufSize: Integer;
Entries: Integer;
Result: Integer;begin
ComputerCount := 0;
Workgroup := Workgroup + #0;
FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);
With WorkgroupRS do begin
dwScope := 2;
dwType := 3;
dwDisplayType := 1;
dwUsage := 2;
lpRemoteName := @Workgroup[1];
end;
WNetOpenEnum( RESOURCE_GLOBALNET,
RESOURCETYPE_ANY,
0,
@WorkgroupRS,
EnumHandle );
Repeat
Entries := 1;
BufSize := SizeOf(Buf);
Result :=
WNetEnumResource( EnumHandle,
Entries,
@Buf,
BufSize );
If (Result = NO_ERROR) and (Entries = 1) then begin
Inc( ComputerCount );
Computer[ ComputerCount ] := StrPas(Buf[1].lpRemoteName);
end;
Until (Entries <> 1) or (Result <> NO_ERROR);
WNetCloseEnum( EnumHandle );
end; {找到所有的计算机}