关于Delphi中如何正确调用BAT

Question

初学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,就没问题，实现结果请问怎么解决 ？

Answer 1

已经解决了；
还是谢谢你的回答
不过又出现一问题，再次请教procedure TForm1.Button2Click(Sender: TObject);
begin
  CopyFile(Pchar(ExtractFilePath(openpicturedialog1.FileName)),pchar(ExtractFilePath(ParamStr(0))),false);
end;
end.编译没有错误，但实现不了效果；
问题应该是出现在复制的目标路径上，我是想把用打开对话框选择的文件复制到程序所在的目录，请问应该如何改正 ？
最好给出具体的代码...谢谢

Answer 2

var
  scF, dsF: string;
begin
  if OpenPictureDialog1.Execute then
  begin
    scF := openpicturedialog1.FileName;    dsF := ExtractFilePath(ParamStr(0)) + ExtractFileName(scF);    CopyFile(Pchar(scF), pchar(DsF), false);
  end;
end;