Скачать: CL | DM;

закрытие процесса   Найти похожие ветки 

← →
Остап   (2004-05-30 23:39) [0]


procedure KillProgram(ClassName: PChar; WindowTitle: PChar);
const
 PROCESS_TERMINATE = $0001;
var
 ProcessHandle : THandle;
 ProcessID: Integer;
 TheWindow : HWND;
begin
 TheWindow := FindWindow(PChar(ClassName), PChar(WindowTitle));
 GetWindowThreadProcessID(TheWindow, @ProcessID);
 ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
 TerminateProcess(ProcessHandle,4);
end;

это код фукции, которая завершает процесс.
Все бы хорошо... Но только одна проблема: почему завершая процесс дочернего окна, например, открытую папку - закрывается родительское окно - Explorer! Непорядок!!! Сам так и не понял... Разберитесь pls.

---

← →
Игорь Шевченко ©   (2004-05-30 23:43) [1]

> почему завершая процесс дочернего окна, например, открытую
> папку - закрывается родительское окно - Explorer


Ты же целиком процесс завершаешь, вот все его окна и закрываются.

И эта...восклицательных знаков поменьше ставь

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c