delphi - 如何使用Delphi正确执行.bat文件

Question

我正在运行 delphi(2010) 中的 .bat 文件。

procedure TForm1.Button2Click(Sender: TObject);
var sCmd: String;
 Begin
sCmd := Pwidechar('b4a_c2dm.bat' +' ' +'send ' + Trim(Edit1.Text)+' '  + Trim(edit2.Text ));
ShellExecute(0, 'open', 'b4a_c2dm.bat', PChar(sCmd), nil, SW_SHOWMAXIMIZED);
   end;

这将打开 cmd.exe 并在 cmd.exe 中传递正确的字符串，但是

.bat 文件中的行 (java -cp b4a_c2dm.jar Anywheresoftware.b4a.c2dm.C2DM %*) 如何显示在 cmd.exe 窗口中，并且不让 .bat 文件执行其工作。

有人可以帮我解决这个问题吗？

Answer 1

为了执行批处理文件，要调用的程序是“cmd”，其参数应该是批处理文件的名称。

关于您的程序，

ShellExecute (application.handle, 'open', 'cmd', PChar(sCmd), nil, SW_MAXIMIZE)