DELPHI调用DOS命令的问题

[dongxie2007]

我想在DELPHI执行DOS命令,最好能回显执行结果,执行完DOS命令够关闭在CMD程序

比如 COPY C:\123.EXE D:\123.EXE 其中 C:\123.EXE 的位置我希望能通过什么组件
让用户自己选择程序的地址.

补充:还有问个与标题无关的 我尝试过 DELPHI资源文件加如EXE文件在调用
总是不成功看了很过文章大多说的不太详细[可能我看不懂]请高手指点下

[chtlovezj]

var
command:string;
begin
if OpenDialog1.Execute then
command:='command.com /C copy '+ OpenDialog1.FileName+' d:\123.exe ';
winexec(pchar(command),sw_show);
end;
注意：选择路径不能有中文名

[ptma]

有个 DosCommand 控件

[hongqi162]

控制bat文件 然后执行这个文件

[zhao_yong]

如楼上的也可以呀,直接调用command

[代码跳动]

winexec('cmd /c 要的命令',sw_show);
winexec('cmd /k 要的命令',sw_show);

[dongxie2007]

var
command:string;
begin
if OpenDialog1.Execute then
command:='command.com /C copy '+ OpenDialog1.FileName+' d:\123.exe ';
winexec(pchar(command),sw_show);
end;
注意：选择路径不能有中文名


该成这样是不是就可以有中文路径了

var
cmd:string;
begin
if OpenDialog1.Execute then
cmd:='cmd /C copy '+ OpenDialog1.FileName+' d:\123.exe ';
winexec(pchar(command),sw_show);
end;
注意：选择路径不能有中文名