VPF::Зависание ShellExecuteEx + WaitForSingleObject

Keeper89

Дата 2.9.2013, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

Доброго времени суток.

Для запуска сторонней программы и ожидания ее заверщения использую следующий код:

Код


    procedure RunFileAsAdminWait(hWnd: HWND; aFile: string);
    var
      sei: TShellExecuteInfo;
    begin
      FillChar(sei, SizeOf(sei), 0);
      sei.cbSize := SizeOf(sei);
      sei.Wnd := hWnd;
      sei.fMask := SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS;
     
      sei.lpVerb := 'runas' // при open тоже самое
     
      sei.lpFile := PChar(aFile);
      sei.lpParameters := PChar('');
      sei.nShow := SW_SHOWNORMAL;
     
      if not ShellExecuteEx(@sei) then
        RaiseLastOSError;
      if sei.hProcess <> 0 then begin
        while WaitForSingleObject(sei.hProcess, 50) = WAIT_TIMEOUT do
          Application.ProcessMessages;
        CloseHandle(sei.hProcess);
      end;
    end;

При этом на Висте и выше выскакивает UAC, в котором если нажать да - все ОК, а вот если нет - приложение виснет намертво. В чем тут может быть причина?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Illusion Dolphin

Дата 2.9.2013, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 4
Всего: 63

У меня если нажать на что угодно кроме Yes выпыдает обычная ошибка, т.е. RaiseLastOSError и всё, никаких зависаний. Call-stack в момент зависания смотрели?

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Keeper89

Дата 2.9.2013, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

Illusion Dolphin,
пересобрал приложение в Windows 7 (вместо XP) - все пошло нормально. Странно...

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »