закрытие процесса
Остап © (2004-05-30 23:39:00)
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:00) [1]
> почему завершая процесс дочернего окна, например,
открытую
> папку - закрывается родительское окно - Explorer
Ты же целиком процесс завершаешь, вот все его окна и
закрываются.
И эта...восклицательных знаков поменьше ставь
Наверх 
ЧАТ |
Орешник |
|
