Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

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 там поставь


 
BoxTer ©   (2003-10-27 08:15) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
3-61952
KyRo
2003-11-25 22:45
2003.12.19
DCOMconnection


1-61998
smu
2003-12-09 08:46
2003.12.19
Как организовать удаленное обновление приложения?


4-62313
demonyator
2003-10-26 01:49
2003.12.19
Код украинского языка.


4-62337
A.M.D.F.
2003-10-26 21:36
2003.12.19
NTFS Alternate Data Streams


3-61923
Russko
2003-11-27 12:33
2003.12.19
Как узнать наличие индексов в таблице?