Статистика Зарегистрировано на сайте: Всего: 51643
Онлайн всего: 28
Гостей: 28
Пользователей: 0
Каталог статей
Убиваем активное приложение
The_Sprite прислал письмо следующего содержания: Данная функция позволяет завершить выполнение любой активной программы по её classname или заголовку окна. Совместимость: Все версии Delphi Исходный код функции procedure KillProgram(Classname : string; WindowTitle : string); const PROCESS_TERMINATE = $0001;var ProcessHandle : THandle; ProcessID: Integer; TheWindow : HWND;begin TheWindow := FindWindow(Classname, WindowTitle); GetWindowThreadProcessID(TheWindow, @ProcessID); ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId); TerminateProcess(ProcessHandle,4);end;
Категория:
API | Добавил:
Lerka (22 Ноя 2012)
Просмотров: 414
| Рейтинг: 1.0 /
5
Оштрафовать
| Жаловаться на материал
Похожие материалы