关于Delphi中如何正确调用BAT
初学Delphi,所以动手写了小工具自己玩下
代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
if openpicturedialog1.Execute then
CopyFile(pchar(openpicturedialog1.FileName), 'C:\BG\bg.BMP ',false);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec( 'Make.CMD ',SW_SHOWDEFAULT);
end;
批处理如下:
nconvert -out xpm *.BMP
gzip *.xpm
问题是:
运行生成的应用程序,执行完Button1 后接着执行Button2,批处理可以运行,但没有运行结果;
但如果关闭应用程序后再折行Button2,就没问题,实现结果
请问怎么解决 ?
[解决办法]
路径?最好使用全路径,包括批处理和程序中。