Убить процесс по заголовку окна

[Nice42ru]

Нашёл функицю KillProgram, но есть проблема она закрывает процесс если указать точное название окна, тоесть если ввести не полное то работать нечего небудет. Нужно сделать следющее:
На кнопку вешаем

procedure TForm1.Button1Click(Sender: TObject);
begin
killprogram(nil, 'Взлом');
end;

и если в любом названии окна будет слово взлом, например

Как взломать сервер?

Процедура немедленно закроет данное окно.


Сама процедура:

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;

[Utkin]

Собственно, в чем проблема? Или Вы просто хотели поделиться радостной вестью с окружающими?

[Сергeй]

FindWindow() для такой задачи не подходит.
Нужна EnumWindows()

[Stilet]

Nice42ru

Во-первых: Присоединяюсь к Сергею. И добавлю что можно в таймере брать заголовок окна, хендл которого возвращается функцией GetForegroundWindow - это то которое впереди всех, и его закрывать.
Во-вторых: Ты точнее задачу выложи, ато ведь не обязательно заголовок будет соответствовать содержимому.

[Nice42ru]

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

Собственно, в чем проблема? Или Вы просто хотели поделиться радостной вестью с окружающими?

Проблема в том что данный код закрывает окно только при том условии, если указано точное название окна, а мне надо сделать чтобы оно было не точное а содержало то что я писал выше

[Nice42ru]

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

Во-первых: Присоединяюсь к Сергею. И добавлю что можно в таймере брать заголовок окна, хендл которого возвращается функцией GetForegroundWindow - это то которое впереди всех, и его закрывать.
Во-вторых: Ты точнее задачу выложи, ато ведь не обязательно заголовок будет соответствовать содержимому.

Тоесть тот код что я дал выше, он закрывает только тогда, когда значение указанно точно

killprogram(nil, 'Безымянный - Блокнот');

Если указать

killprogram(nil, 'Блокнот');

То ничего не закроется, а нужно сделать чтобы при

killprogram(nil, 'Блок');

Закрывались все окна, в названии окон которых есть "Блок"
Примеры

Безымянный - Блокнот
Блокировка - Opera

[Stilet]

Nice42ru

Тебе же сказали: EnumWindows или GetForegroundWindow дадут хендлы(хендл) окон(окна впереди), в его обработчике через pos проверяй есть ли в заголовке такая подстрока.

[Nice42ru]

Сообщение от Сергeй

FindWindow() для такой задачи не подходит.
Нужна EnumWindows()

Нужно заменить

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;

На

procedure KillProgram(ClassName: PChar; WindowTitle: PChar);
const
process_terminate = $0001;
var
processhandle : thandle;
processid: integer;
thewindow : hwnd;
begin
thewindow := EmumWindows(pchar(classname), pchar(windowtitle));
getwindowthreadprocessid(thewindow, @processid);
processhandle := openprocess(process_terminate, false, processid);
terminateprocess(processhandle,4);
end;

да?

[Stilet]

да?

Нет. Забей в поиск по форуму EmumWindows и увидишь кучу примеров.

[Пепел Феникса]

EmumWindows

опечаточка
EnumWindows