调用其它应用程序的问题(50分)

在程序A中调用其他的应用程序B，等B执行完成，程序A才可继续执行。
效果就像，调用了A程序中的一个模态窗口一样。

高手？！高手？！高手？！
555555~

var
SI: TStartupInfo;
PI: TProcessInformation;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
SI.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
SI.wShowWindow := SW_HIDE;
CreateProcess(
nil,
PChar(ExeFile),
nil,
nil,
True,
0,
nil,
PChar(ExtractFilePath(ExeFile)),
SI,
PI);
WaitForSingleObject(PI.hProcess, INFINITE);
end;

winexec(pchar( 'c:/you.exe'),sw_show);

谢谢各位
to 轻舞肥羊
你的办法我试过了，不行的，我的A程序没有响应了。

to 网中戏
不能实现我说的效果。

没找到好办法，我只好用Dll实现了，哎....

散分了