通过管道技术就可以读取到DOS窗口的返回。
写过一个单元文件可以取到,代码如下:
测试代码:
procedure TForm1.btn1Click(Sender: TObject);
begin
mmo1.Text:= GetDosOutput('ping www.baidu.com');
end;
执行效果:

通过管道技术就可以读取到DOS窗口的返回。
写过一个单元文件可以取到,代码如下:
测试代码:
procedure TForm1.btn1Click(Sender: TObject);
begin
mmo1.Text:= GetDosOutput('ping www.baidu.com');
end;
执行效果:
