Закрытие активного окна стороннего приложения

@YoungerBoy · Регистрация: 16.06.2019

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Начались каникулы и решил заняться самообразованием в Delphi. B понадобилась мне программка для завершения процесса любого активного окна при помощи горячей клавиши. Только запутался я совсем и полностью с этими Handle, PID и т.п.
Так как я учусь в школе, то Delphi мне не по карману, изучаю Lazarus.
Значит, я научился получать заголовок активного окна:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function GetWindowTitle:string;
begin
  GetWindowText(GetActiveWindow(), buf, 256);
  result:=buf;
end; 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ActiveWindow:=GetForegroundWindow;
 if H<>ActiveWindow then
   begin
     H:= ActiveWindow;
     GetWindowText(H, @Buf[0], 256);
     Memo1.Lines.Add(String(Buf));   // Для наглядности
   end;
end;

Понял как привязывать горячие клавиши

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function LLKeyProc(nCode: integer; wp: WPARAM; lp: LPARAM): LRESULT; stdcall;
var
  vk: DWORD;
begin
  if nCode = HC_ACTION then
  begin
    vk := LPKBDLLHOOKSTRUCT(lp)^.vkCode;
    if wp = WM_KEYDOWN then
      case vk of
        VK_F12:   
       //   KillTask('Тут имя процесса');
      end;
  end;
  Result := CallNextHookEx(0, nCode, wp, lp);
end;

И как завершать процессы:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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;

И это все работает. Если процесс называется Notepad.exe и его руками указать в функции LLKeyProc,

Delphi
1
2
 VK_F12:   
          KillTask('Notepad.exe');

то Блокнот закроется.

А вот дальше у меня закавыка. Я не знаю имя процесса, т.к. они будут разные (блокнот, браузер, игра, плеер и т.п.). Я знаю только что окно, которое мне нужно закрыть, будет активным.
Несколько часов гугляния и я понял как узнать заголовок активного окна. Выше писал способ, которым получаю. Но заголовок - не файл. Он может быть любым и отличаться от названия процесса. А вот как получить это самое название, я так и не понял.
Пробовал что-то через PID, но числа, получаемые мною разительно отличались от ID процессов, указанных в Диспетчере задач. В общем, тут я застопорился и выдохся. Помогите, если есть время. Только прошу разжевать, т.к. этим увлечением я заболел пару недель назад и пока всё довольно сложно.

@UR1004SWL · 16.06.2019, 23:28

Если нужно просто закрыть активное окно, то с помощью GetActiveWindow() получаешь hwnd на активное окно, затем SendMessage (hwnd, WM_CLOSE, 0, 0) закрываем окно.
Если же нужно получить название процесса, запустившего это окно, то по сложнее:
1) получить hwnd активного окна через GetActiveWindow()
2) получаешь идентификатор процесса, передавая полученный hwnd в GetWindowThreadProcessId
3) OpenProcess чтобы получить handle процесса с найденным идентификатором (id)
4) GetProcessImageFileName - получаешь имя процесса по его HANDLE
5) CloseHandle - закрываешь handle процесса.

@YoungerBoy · 17.06.2019, 04:59 **[ТС]**

Здравствуйте. Почему-то через

Сообщение от UR1004SWL

GetActiveWindow()

я получаю hwnd только окна самой программы. Любое другое активное окно возвращает 0.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ActiveWindow:=GetForegroundWindow;
 if H<>ActiveWindow then
   begin
     HW:= GetActiveWindow();
     H:= ActiveWindow;
     GetWindowText(H, @Buf[0], 256);
     Memo1.Lines.Add(String(Buf));
    Memo2.Lines.Add(inttostr(HW));
   end;
end;
 
case vk of
        VK_F12:   
          SendMessage (HW, WM_CLOSE, 0, 0);
      end;

Но, если вместо GetActiveWindow использовать GetForegroundWindow и сделать

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ActiveWindow:=GetForegroundWindow;
 if H<>ActiveWindow then
   begin
    // HW:= GetActiveWindow();
     H:= ActiveWindow;
     GetWindowText(H, @Buf[0], 256);
     Memo1.Lines.Add(String(Buf));
    Memo2.Lines.Add(inttostr(ActiveWindow));
   end;
end;
 
case vk of
        VK_F12:   
          SendMessage (ActiveWindow, WM_CLOSE, 0, 0);
      end;

, то все работает. Активное окно закрывается. Остался последний вопрос, если можно:
WM_CLOSE - это хорошо, но программа нужна для закрытия именно зависших, неотвечающих окон. Поэтому и искал информацию про процесс, чтобы жестко его завершить. Этот код, я так понимаю так же подойдет, только WM_CLOSE нужно заменить. WM_DESTROY не работает, а WM_TERMINATE пишет, что не существует. Не подскажите?

Добавлено через 27 минут

Сообщение от UR1004SWL

Если же нужно получить название процесса, запустившего это окно, то по сложнее:

Вариант второй не очень понятен.
Делаю так:

Delphi
1
2
3
4
ActiveWindow:=GetForegroundWindow;
S:= GetWindowThreadProcessId(ActiveWindow, Nil);
HP:= OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, false, S); 
N:= GetProcessImageFileName(HP, Nil); // Вот тут закавыка.

Как тут сделать?

@UR1004SWL · 17.06.2019, 11:59

Delphi
1
2
3
4
5
6
7
var
 cProcName: array[0..MAX_PATH] of Char;
 s: string;
...
if GetProcessImageFileName(HP, @cProcName, SizeOf(cProcName)) <> 0 then
 s := cProcName;
...

@YoungerBoy · 17.06.2019, 19:32 **[ТС]**

Сообщение от UR1004SWL

1
var
*cProcName: array[0..MAX_PATH] of Char;
Str: string;
...
if GetProcessImageFileName(HP, @cProcName, SizeOf(cProcName)) <> 0 then
Str := cProcName;
...

Большое спасибо! Теперь хоть представляю, как это работает! Правда, пока только теоретически. Переменная Str остается пустой. Но видимо

Delphi
1
HP:= OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, false, S);

ошибка. Но хоть теперь представляю и понимаю, как работает GetProcessImageFileName. На досуге попытаюсь разобраться почему Str не записывает имя процесса.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@UR1004SWL 561 / 230 / 88 Регистрация: 11.07.2015 Сообщений: 817
	16.06.2019, 23:28
	Если нужно просто закрыть активное окно, то с помощью GetActiveWindow() получаешь hwnd на активное окно, затем SendMessage (hwnd, WM_CLOSE, 0, 0) закрываем окно. Если же нужно получить название процесса, запустившего это окно, то по сложнее: 1) получить hwnd активного окна через GetActiveWindow() 2) получаешь идентификатор процесса, передавая полученный hwnd в GetWindowThreadProcessId 3) OpenProcess чтобы получить handle процесса с найденным идентификатором (id) 4) GetProcessImageFileName - получаешь имя процесса по его HANDLE 5) CloseHandle - закрываешь handle процесса. 1

Закрытие активного окна стороннего приложения

Решение