如何在一个 工程中调用一个dos 程序 ，在执行完dos 命令 后返回工程(50分)

;如何在一个 工程中调用一个dos 程序 ，这个dos命令 是一个串口接收命令
我想 在执行完dos 命令后，让dos 窗口自动关闭，然后返回工程，该如何实现，
各位 大虾请指教！！！

; sCommandLine := 'D:/TEMP/lha.EXE x s' + IntToStr(I) +'.lzh a:/';
// 填? StartupInfo
FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);
lpStartupInfo.cb := Sizeof(TStartupInfo);
lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;
lpStartupInfo.wShowWindow := SW_NORMAL;

bCreateProcess := CreateProcess(nil, PChar(sCommandLine),
nil, nil, True, NORMAL_PRIORITY_CLASS,
nil, nil, lpStartupInfo, lpProcessInformation);

if bCreateProcess then //等外部进程的结束
WaitForSingleObject(lpProcessInformation.hProcess, INFINITE);
....

shellexecute

winexec('c:/command.com /c ' + szExeName , sw_Show);

将程序放在一个BAT文件中,如:
Test.bat:
Your program Name
exit

然后在程序中调用test.bat

多人接受答案了。