用winexec执行一个bat文件，怎么获取执行进度

用winexec执行一个bat文件，如何获取执行进度？
如：

var   a:Cardinal;

a:=WinExec( 'C:\a.bat ',SW_SHOWNORMAL)

通过a可以获取执行是否成功，

请教，在delphi程序中能否获取执行a.bat到了什么地步？或完成了多少？

谢谢！

[解决办法]
有命令行的回调提示的话可以做到.如果没有的话不会.这点分数太少了.