delphi7 获取计算机名,远程控制篇：获得网络邻居所有机器名

远程控制篇：获得网络邻居所有机器名

procedure TForm1.Button1Click(Sender: TObject);

VAR

command:string ;

comline: pchar ;

begin

command:=COMMAND.COM /C net view>c:~~~.txt;

comline:=pchar(command);

WinExec(comline, sw_hide);

timer1.Enabled:=true;

end;

每秒试一次

procedure TForm1.Timer1Timer(Sender: TObject);

var f:tstringlist;

ll,ii:integer;

s1,s:string;

b:bool;

begin

f:=tstringlist.Create;

try

f.LoadFromFile(c:~~~.txt);

except

end;

if f.Count>10 then begin

memo1.Clear;

memo1.lines.add(f.text);

timer1.Enabled:=false;

f.Free;

{去掉多余的行和\}

for ll:=memo1.lines.count-1 downto 0 do begin

if strpos(pchar(memo1.lines.strings[ll]),\)=nil then

memo1.lines.delete(ll)

else

memo1.lines.Strings[ll]:=delxxx(memo1.lines.Strings[ll]);

{自编1个去\的函数}

end;

timer1.enabled:=False;

end;

delphi7 获取计算机名,远程控制篇：获得网络邻居所有机器名_delphi教程相关推荐

delphi7 获取计算机名,Delphi中根据IP地址得到主机名
下载本文示例代码本实例演示如何利用TUdpSocket组件获取IP地址和主机名. 向窗体上添加一个TUdpSocket组件,如图1所示. 图1 主界面 TUdpSocket组件中有两个属性--Loc ...
修改机器名、IP对arcgis server、portal的影响？
修改机器名.IP是否对ArcGIS Server .Portal等有影响? 请教赛姐:修改IP对ArcGIS Server .Portal 无影响,不过建议将ArcGIS Server .Portal ...
win7网络的计算机名称,Win7指定的网络名不再可用快速解决教程
在局域网中,设置共享可以让我们工作效率提高,共享文件更加方便,但是经常会遇到一些错误,如打不开共享计算机,提示指定的网络名不再可用,非常容易出现,这主要是由于网络不通或是电脑上相关服务没有启动导致的, ...
python获取mac地址_你知道怎么用Python获取计算机名，ip地址，mac地址吗
获取计算机名 # 获取计算机名,常用的方法有三种,但最常用的是第一种 import os import socket # method one name = socket.gethostname() ...
vc获取计算机用户名,vc获取计算机名和ip地址的方法
vc获取计算机名和ip地址的方法本文实例讲述了vc获取计算机名和ip地址的方法.分享给大家供大家参考.具体实现方法如下: #include #include #pragma comment(lib, ...
VB6.0获取计算机名用户名最简单的方法
大家在做项目的时候经常会用到这个像什么学生信息管理系统啦小弟在此汇总一下供大家参考最简单的方法: 结果显示在文本框中其他同理获取计算机名: Text1.text = VBA.Enviro ...
netsh 获取计算机名,Windows中Netsh命令的典型应用
netsh命令已经推出很长时间,在Windows 2000/XP/2003中均带有Netsh命令.Windows Server 2008只是对netsh的参数项做了些扩展.日常工作中,很多管理员对ne ...
获取计算机名和局域网内的工作组名称
//获取计算机名称DWORD nSize = MAX_COMPUTERNAME_LENGTH + 1;char Buffer[MAX_COMPUTERNAME_LENGTH + 1];GetCompu ...
Java核心类库篇8——网络编程
Java核心类库篇8--网络编程 1.七层网络模型 OSI(Open System Interconnect),即开放式系统互联,是ISO(国际标准化组织)组织在1985 年研究的网络互连模型. 当发 ...
计算机网络中的冗余部件大大降低了可靠,大学计算机第七篇练习题
<大学计算机第七篇练习题>由会员分享,可在线阅读,更多相关<大学计算机第七篇练习题(7页珍藏版)>请在技术文库上搜索. 1.10如果用户想访问某个站点,在IE浏览器地址栏中输入 ...

delphi7 获取计算机名,远程控制篇：获得网络邻居所有机器名_delphi教程

delphi7 获取计算机名,远程控制篇：获得网络邻居所有机器名_delphi教程相关推荐

最新文章

热门文章