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

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

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有