链接: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;