WEB开发网
开发学院软件开发Delphi 远程控制篇:获得网络邻居所有机器名 阅读

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

 2006-02-04 13:25:30 来源:WEB开发网   
核心提示:远程控制篇:获得网络邻居所有机器名PRocedure TForm1.Button1Click(Sender: TObject);VAR command:string ; comline: pchar ;begin command:='COMMAND.COM /C net view>c:~~~.txt

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

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;

--------------------------------------------
湖北襄樊  官本和(gbh12345@china.com)  2001.4
详见主页源程序:
http://delphi21cn.yeah.net
http://personal.hb.cninfo.net/~gbh

Tags:远程控制 获得 网络

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接