Question

急！如何使用Delphi调用执行DOS批处理文件!

Answer 1

我使用以下方法，但发现执行后，进程中多一个WinoldAPP,退出程序也不消失请各位大虾指教！function
ExecuteFile(const
FileName,
Params,
DefaultDir:
string;
ShowCmd:
Integer):
THandle;var
zFileName,
zParams,
zDir:
array[0..79]
of
Char;begin
Result
:=
ShellExecute(Application.MainForm.Handle,
nil,
StrPCopy(zFileName,
FileName),
StrPCopy(zParams,
Params),
StrPCopy(zDir,
DefaultDir),
ShowCmd);end;ExecuteFile('pBar.bat','0','PBar.bat',0);