delphi中调用Winrar后怎的等待其解压完成后再向下执行

delphi中调用Winrar后怎样等待其解压完成后再向下执行？
在在delphi中调用Winrar后怎样等待其解压完成后再向下执行？，如下我用shellexecute调用Winrar
shellexecute(handle,nil,'winrar','e -ibck -y d:\rartest\rar\jour_224_20121108.tar.gz acctmas.unl d:\rartest\rar\',nil,SW_SHOW);
要等待上面的执行完成后再向下走
...
showmessage('解压成功');
请问怎样实现？
------解决方案--------------------
看一下这个：http://bbs.csdn.net/topics/50232175
------解决方案--------------------

  Result := CreateProcess(nil, PChar(Command), nil, nil, true,

    NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInformation);


  if bWaitExecute then

    WaitForSingleObject(ProcessInformation.hProcess, INFINITE);