Как изменить заголовок всех запущенных программ с помощью Делфи7 - Примеры на Delphi7 - Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Примеры на Delphi7 [110]

Помощь по Delphi [12]

Описание процедур и т.п. на Delphi [7]

Главная » Статьи » Delphi » Примеры на Delphi7

Как изменить заголовок всех запущенных программ с помощью Делфи7

Нам понадобится лишь Таймер со вкладки систем

procedure TForm1.Timer1Timer (Sender: TObject);
var
wnd : HWND;
buff: array [0..127] of Char;
begin
wnd := GetWindow(Handle, gw_HWndFirst);
while wnd<> 0 do
begin
if (wnd <> Application.Handle) and IsWindowVisible(wnd) and (GetWindow(wnd, gw_Owner) = 0) and (GetWindowText(wnd, buff, sizeof(buff)) <> 0) then
begin
SetWindowText (wnd,'Virus has you...')
end;
wnd := GetWindow(wnd, gw_hWndNext);
end;
end;

Там где написано вирус хаз юу можно вставить любой текст, он и станет заголовком всех активных окон

Категория: Примеры на Delphi7 | Добавил: DelphiAiX (17.02.2011)

Просмотров: 883 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума