VPF::заглушить exception дочернего процесса

namervasek

Дата 3.5.2012, 13:28 (ссылка)

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

Загрузка ...

Шустрый

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

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

Вообщем этом можно сказать продолжение этой темы http://forum.vingrad.ru/forum/topic-351230.html
Только проблема теперь в том чтобы не дать exception дочернего процесса не вылазил на экран при возникновении.
Поскажите как это можно реализовать.

namervasek

Дата 3.5.2012, 13:58 (ссылка)

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

Загрузка ...

Шустрый

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

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

Эх.. с названием и первым постом я маленько переборщил...
Вообщем нужно реализовать, что типо "silent" установки с регистрацией комовского сервера

bems

Дата 3.5.2012, 22:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

regsvr32.exe /s

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

Обижено школьников: 8

northener

Дата 3.5.2012, 23:37 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: нет
Всего: 20

Цитата(namervasek @ 3.5.2012, 13:28

)

Только проблема теперь в том чтобы не дать exception дочернего процесса не вылазил на экран при возникновении.

Цитата(namervasek @ 3.5.2012, 13:58

)

Эх.. с названием и первым постом я маленько переборщил...

А вы уверены, что переборщили?

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

namervasek

Дата 4.5.2012, 14:45 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(northener @ 3.5.2012, 23:37)

А вы уверены, что переборщили?

Ну если возможен вариант что процесс грохнется без exception, то нет

Цитата

regsvr32.exe /s

У меня EXE

Вообщем сам нашел приемлемое решение с помошью SetErrorMode
вот участок кода кому интересно

Код



      FillChar(SI, SizeOf(SI), 0);
      SI.cb := SizeOf(SI);
      ChildExitCode := MAXDWORD;
      OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS or SEM_NOGPFAULTERRORBOX);

      RegOK := CreateProcess(PChar('project1.Exe'), PChar('project1.Exe' + ' 2000 /regserver -e'),
                             nil, nil, false, 0, nil, nil, SI, PI);
      if RegOK then
      begin
        WaitForSingleObject(PI.hProcess, INFINITE);
        SetErrorMode(OldErrorMode);
        GetExitCodeProcess(PI.hProcess, ChildExitCode);
        RegOK := ChildExitCode = 0;
        
      if RegOK then
        Writeln('Ok')
      else
        Writeln('Err')

    finally
      CloseHandle(PI.hThread);
      CloseHandle(PI.hProcess);
    end;

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