Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2009, 20:11   #1
Михаил Юрьевич
Форумчанин
 
Аватар для Михаил Юрьевич
 
Регистрация: 25.12.2007
Сообщений: 655
По умолчанию Закрыть чужое приложение

Как закрыть чужое приложение зная путь к исполняющему файлу.
Закрывать по названию окна не подходит
PostMessage(FindWindow(nil, 'Заголовок окна'), WM_QUIT, 0, 0);
За частые поиски был забанен во всех известных
поисковых системах!
Михаил Юрьевич вне форума Ответить с цитированием
Старый 28.03.2009, 20:35   #2
uberchel
Участник клуба
 
Аватар для uberchel
 
Регистрация: 19.01.2009
Сообщений: 1,455
По умолчанию

Вот функция:

Код:
function KillTask(ExeFileName: string): integer;
const PROCESS_TERMINATE=$0001;
var ContinueLoop: BOOL; 
     FSnapshotHandle: THandle;
     FProcessEntry32: TProcessEntry32;
begin 
  result := 0;  
  FSnapshotHandle := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while integer(ContinueLoop)<> 0 do 
   begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or 
       (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then
     Result := Integer(TerminateProcess(OpenProcess( PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);end;
     CloseHandle(FSnapshotHandle); 
   end;

Последний раз редактировалось rpy3uH; 30.03.2009 в 08:42.
uberchel вне форума Ответить с цитированием
Старый 28.03.2009, 20:54   #3
Михаил Юрьевич
Форумчанин
 
Аватар для Михаил Юрьевич
 
Регистрация: 25.12.2007
Сообщений: 655
По умолчанию

Спасибо,то что надо
За частые поиски был забанен во всех известных
поисковых системах!
Михаил Юрьевич вне форума Ответить с цитированием
Старый 28.03.2009, 21:26   #4
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

На всякий случай: в uses должно быть "Windows", "SysUtils" и "Tlhelp32"...
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставка текста в чужое приложение MyasNick Win Api 19 08.04.2012 10:46
Открыть чужое приложение в окне своего Fainder Общие вопросы Delphi 3 13.02.2009 15:07
Вставка из буфера в чужое приложение Denager Общие вопросы Delphi 2 20.09.2008 13:24
чужое приложение Electrod Win Api 12 27.01.2008 17:04
Как активировать чужое приложение Hintman Win Api 3 30.04.2007 16:24