Найти и уничтожить

Перцы! Если у вас есть что-то интересное то присылайте, не стесняйтесь. Присылайте все, что только связано с компьютерами. Спасибо за внимание 8).

Подписка на рассылку новостей

Сегодня мы создадим прогу которая будет искать в системе окошко с заголовком Microsoft Word и УНИЧТОЖАТЬ его

Теперь начинаем шкодить. Значт так -создай новое приложение и перениси на форму только одну кнопку с заголовком НАЙТИ И УНИЧТОЖИТЬ. В обработчике нажатия этой кнопки напиши следующее:
Procedure TForm1.DindAndDestroyButtonClick(Sender; Tobject);
var
h:hWnd;
begin
h:=FindWindow (nil, 'Microsoft Word');
if h=0 then exit;
sendMessage(h, WM_DESTROY, 0,0);
end;

FindWindow -эта функция ищет в системе окно по заданным параметрам. Если окно существует то она возвращает его идентификатор иначе просто 0. Вот необходимые параметры: 1.Класс окна. Я указал nil, что означает неизвестный. 2. Заголовок окна. Для примера я взял Microsoft Word, поэтому указан его заголовок. После того как прога выполнила эту функцию мы посылает окну сообщение WM_DESTROY(уничтожится) с помощью функции SendMessage.

Главный минус этой функции- заголовок окна надо знать точто.Пример: если заголовок будет Документ1- Microsoft Word то окно не уничтожится.

Вот и все! Пример оказался очень простым.

Найти и уничтожить