Операции перед убийством процесса.

[Alex Cones]

Необходимо выполнить процедуру, перед тем, как процесс будет уничтожен через "Диспетчер".

Function WindowProc(Hand, Mess :LongWord; wParam, lParam: LongInt): LongInt; StdCall;
  Begin
   Result := DefWindowProc(Hand, Mess, wParam, lParam);
   Case Mess Of

    (* WM_DESTROY *) 2 : UNTForms.ShutDown;
   End;
  End;

Не помогает. Т.е. он помогает, когда приложение завершают обычными методами. А не "выдергиванием шнура".

[JTG]

Процесс не получает никаких уведомлений/не может препятствовать завершению при вызове TerminateProcess. Только через перехват API.

[Alex Cones]

Блин, жалко. А какая мысля была...

Ситуация в следующем - перед запуском запоминаю разрешение экрана, во время выполнения его меняю, при выходе возвращаю, как было. Если кильнуть процесс - как было не вертается. Вот и думаю, как решить ситуацию.

Есть вариант через "смотрителя" - процесс, который будет отслеживать существования mainprocess и при его закрытии вертать все взад.

[raxp]

Есть вариант через "смотрителя"

хороший вариант.

[JTG]

Угу, что-нибудь типа

var pi: PROCESS_INFORMATION;
    si: STARTUPINFO;
    ExitCode: Dword;

begin
  ZeroMemory(@pi, sizeOf(pi));
  ZeroMemory(@si, sizeOf(si));
  if CreateProcess(nil, 'blablabla.exe', nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, si, pi) then
  begin
    CloseHandle(pi.hThread);
    WaitForSingleObject(pi.hProcess, INFINITE);
    GetExitCodeProcess(pi.hProcess, ExitCode);
    if ExitCode <> 0 then ; //процесс прибили
    CloseHandle(pi.hProcess);
  end;
end.

[Alex Cones]

/r/ комментарии. Не понял ни строчки

P.S. Но спасибо
P.P.S. Кстати, пока не ушел. Если я в приложении создам два WinClass и каждому полноценно все опишу - прибите через дисп. одного процесса убьет второй? Или будет создан только один процесс?