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]:=delspace(memo1.lines.Strings[ll]); end; timer1.enabled:=False; end;
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]:=delspace(memo1.lines.Strings[ll]);
end;
timer1.enabled:=False;
end;