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;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
