运行DOSCommand命令,然后获得返回文本

链接：https://pan.baidu.com/s/1ezA9CLENAFLQ1SHwApm0BA
提取码：ccz2

---

通过网盘分享的文件：tulaterDelphiIDE_V8.rar
链接: https://pan.baidu.com/s/1Hqk9cqnkH1ll0wgwE9-yNA 提取码: mwxx

---

 

先安装 对应的dpk包

 右键Build和Install安装该包

然后 打开 自带Demo

C:\Users\PC\Downloads\DOSCommand-20231121\Demo\

var i:integer;
begin
   DosCommand1.CommandLine :=
   'C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\dcc32.exe  -NS"Vcl;vcl.imaging;system;Winapi"    '
  +'"'+( Edit1.Text)    +'"'+' -u"' ;

   for I := 0 to memoPath.Lines.Count-1 do
   DosCommand1.CommandLine:=DosCommand1.CommandLine+ ExtractShortPathName(memopath.Lines[i])+ ';'; //转成DOS8.3格式

     DosCommand1.CommandLine:=DosCommand1.CommandLine+'" -Q'  ;

  Memo1.Lines.Clear;

  DosCommand1.OutputLines := Memo1.Lines;
  DosCommand1.Execute;
end;