Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 8
Всего онлайн: 8
Зарегистрировано юзеров: 7295
Комментариев на сайте: 659
Новый юзер: ItananenDral



Последние комментарии
c
dealrattKi прокомментировал "Урок 3 - Конструкция IF...THEN...ELSE":
Всем привет я сегодня увидел что в 1xbet можно получить повышенный бонус и что, для его получения, нужно ввести специальный промокод. Какой промокод на 1xbet нужно вводить?
YonqDox прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[url=https://clck.ru/DwfTp]Hacker Forum "Творческая Лаборатория DedicateT"[/url]

Как закрыть чужое приложение

Для того, чтобы программно закрыть чужое приложение, нужно отправить этому приложению сообщение WM_QUIT. В качестве параметра передается заголовок чужого окна, которое нужно закрыть. Ниже приведена функция KillAnother, которая реализует эту возможность:

function KillAnother(const sTitle: PChar): boolean;
var
  h: THandle;
begin
  h:= FindWindow(nil, sTitle);
  Result:= PostMessage(h, WM_QUIT, 0, 0);
end;
Использование:
procedure TForm1.btnKillClick(Sender: TObject);
begin
  KillAnother('Untitled - Notepad');
end;

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 20 Июля 2014
Просмотров:


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.