遠程控制篇：獲得網絡鄰居所有機器名

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;