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

页面导航:首页 > 软件编程 > Delphi > 远程控制篇:获得网络邻居所有机器名

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

来源: 作者: 时间:2016-01-23 10:15 【

远程控制篇:获得网络邻居所有机器名procedure TForm1.Button1Click(Sender: TObject);VAR command:string ; comline: pchar ;begincommand:=COMMAND.COM /C net viewc:~~~.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;

--------------------------------------------
湖北襄樊  官本和()  2001.4
详见主页源程序:
21cn.yeah.net">http://delphi21cn.yeah.net

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <