Странное поведение процедуры

[Sergey1974]

Вот процедура:

procedure TfrmMain.StartAppAndWait(AppPath, Param: string);
var exInfo: TShellExecuteInfo;
    Ph: DWORD;
begin
   FillChar(exInfo, SizeOf(exInfo), 0);
   with exInfo do
   begin
      cbSize := SizeOf(exInfo);
      fMask := SEE_MASK_NOCLOSEPROCESS;
      Wnd := GetActiveWindow();
      ExInfo.lpVerb := 'open';
      lpFile := PChar(AppPath);
      lpParameters := PChar(Param);
      nShow := SW_SHOWNORMAL;
   end;
   if ShellExecuteEx(@exInfo) then
      Ph := exInfo.HProcess
   else
      Exit;
   //while WaitForSingleObject(ExInfo.hProcess, INFINITE) <> WAIT_OBJECT_0 do
   //   Application.ProcessMessages;
   WaitForSingleObject(ExInfo.hProcess, INFINITE);
   CloseHandle(Ph);
end;

Использую так:

StartAppAndWait(ExtractFilePath(Application.ExeName) + 'install\addon.exe', '');

НО! Если запускать программу с жесткого диска - процедура отрабатывает как надо, ожидается завершение запущенной программы и потом управление идет на следующий оператор. А вот если ее запустить со съемного носителя - флэшки или CD - процедура пролетает без задержек, то есть она запускает процесс и его ожидания не происходит, а управление бежит дальше... Чего то я уже голову сломал - в чем причина?

[raxp]

...попробуй изменить проверку:

...
if ShellExecuteEx(@exInfo) then
  begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(exInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
    Result:=True
  end
  else Result:=False;

[Sergey1974]

Не помогло... Ситуация прежняя - с жесткого работает, с флэшки нет.