TerminateProcess не работает ;-)

← →
BoxTer © (2003-10-27 07:05) [0]

Доброе утро!
У меня возникла такая проблема... Глупые юзеры работают в проге, написанной на фокспро 2.6 под винду. И вместо нажатия кнопочки выход просто сворачивают окно и запускают новое. И начинаются проблемы...
Я пытаюсь сделать прогу, которая будет висеть резидентом и будет "убивать" вторую копию приложения. Почти сделал, блин....
Пишу:
procedure L(H:HWND); var app_hWnd: HWND ; app_pid:DWORD ; app_H:THANDLE ; app_E_code:DWORD ; Begin app_hWnd := H; GetWindowThreadProcessId(app_hWnd, @app_pid); app_H := OpenProcess(PROCESS_ALL_ACCESS, TRUE, app_pid); TerminateProcess(app_H, app_E_code); end;
Эта зараза, вроде пытается убить, а в проге вылазит месага: "Cannot quit FoxPro". Я и так применяю тяжелую артиллерию... но не помогает.
Как быть?

← →
SammIk © (2003-10-27 07:40) [1]

Проще посылать главному
окну сообщение WM_CLOSE
Тогда меньше проблем будет
SendMessage(HWND,WM_CLOSE,0,0);

← →
BoxTer © (2003-10-27 07:44) [2]

Этот вариант я пробовал рашьше... была таже самая история про "Cannot quit FoxPro". По-этому я перешел к TerminateProcess...

← →
SammIk © (2003-10-27 07:57) [3]

TerminateProcess(app_H, app_E_code);
Херата какая 0 там поставь

сенкс... заработало

TerminateProcess не работает ;-) Найти похожие ветки