Delphi 调用ShellExecuteEx 打开外部文件时会卡住,具体代码见内,该如何处理

Delphi 调用ShellExecuteEx 打开外部文件时会卡住,具体代码见内
ShellInfo.cbSize := Sizeof(SHELLEXECUTEINFO);
         ShellInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
         ShellInfo.Wnd := 0;// lv_atta.Handle;
         ShellInfo.lpVerb := nil;
         ShellInfo.lpFile := pChar(s);
         ShellInfo.lpParameters := '';
         ShellInfo.lpDirectory := nil;
         ShellInfo.nShow := SW_SHOW;
         ShellExecuteEx(@shellInfo);


[解决办法]
卡住？ 什么地方卡主？
[解决办法]
直接用winexe不行吗？
[解决办法]
都什么年代了还用winexec
var ShellInfo:SHELLEXECUTEINFOW;
begin
ShellInfo.cbSize := Sizeof(SHELLEXECUTEINFOW);
  ShellInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  ShellInfo.Wnd := 0;// lv_atta.Handle;
  ShellInfo.lpVerb := nil;
  ShellInfo.lpFile := 'c:\windows\WindowsUpdate.log';
  ShellInfo.lpParameters := '';
  ShellInfo.lpDirectory := nil;
  ShellInfo.nShow := SW_SHOW;
  ShellExecuteExW(@ShellInfo);