VPF::Меняем заголовки окон - Форум программистов

Freelancer

Дата 22.1.2007, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 18.8.2006

Репутация: нет
Всего: нет

Суть такая: Хочу чтоб прога моя выводила фразу(пахабную) в заголовке окна. Но в заголовке только активного! Ну типа я щелкнул на любое окно а в заголовке написано: "ФИГ ты меня скинеш!". Вот. Я додумался только до того чтоб в цикле от 0 до 1000 всем этим HWND посылать SetWindowText. И ето просто тупо. Подскажите как нада?

_hunter

Дата 22.1.2007, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

а нада не всем окнам слать, а только активному.
как его найти? -- в поиск...

--------------------

Tempora mutantur, et nos mutamur in illis...

Voyager

Дата 22.1.2007, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: 4
Всего: 18

GetForegroundWindow, GetActiveWindow и т.д.

KEM

Дата 23.1.2007, 00:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 152
Регистрация: 28.1.2005

Репутация: нет
Всего: 2

Ня. Хз скольколетназадней давности smile

Код


program project1;
uses Windows;
var
okno:HWND; // объявляем переменную указателя на окно
sss:array[1..30] of string; // массив строк, заголовков окна
RndNotRpt : Array[1..5] of byte;
i,Nmbr : Byte;
begin
// отсюда и далее идет определение заголовков окна
sss[30]:='Windows Must Die!!';
sss[1]:='Linux must live forever!';
sss[2]:='У тебя проблемы, парень? Или ты не парень?';
sss[3]:='Да. Да! Да!! ДА!!!!!!';
sss[4]:='По твоей роже видно, что ты слушаешь Rammstein!';
sss[5]:='Ну ты чувак, крут!';
sss[6]:='Блин. Закурить дай.';
sss[7]:='Тебе не надоело, а?';
sss[8]:='Твой компьютер заражен вирусом! Смешно, правда?';
sss[9]:='На твоем компьютере сейчас 3 человека - я, ты и еще кто-то.';
sss[10]:='На твоем компьютере было 3 человека - третий убрался';
sss[11]:='Тебе заняться нечем, да?';
sss[12]:='Скуучно...';
sss[13]:='Когда ты последний раз проверял(а) себя на IQ?';
sss[14]:='Ты когда-нибудь задумывался(-ась), зачем нужна клавиша SysRq?';
sss[15]:='Ты пользуешься Виндой!? Ты отстал(а) от жизни!!';
sss[16]:='-- Билли! Билли!! У нас рядом со свалки воняет! -- Мам, закрой все окна...';
sss[17]:='Я щас буду ругаться матом!';
sss[18]:='Блин. Черт!! Я опаздываю!!! Вырубай комп, я тороплюсь!!! БЛИН!!!!';
sss[19]:='-- Теть Клава, теть Клава! -- (испуганно) АААА!!! У нас МЫШИ!!!!';
sss[20]:='Жизнь хороша... но тебе это не светит!!!!';
sss[21]:='Ой, какая хорошая девушка!.. А, так это не девушка...';
sss[22]:='Даешь Интернет, парень! А да ты не парень... Вижу-вижу...';
sss[22]:='Как дела? Хорошо? А вот у меня плохо...';
sss[23]:='Error 32: Keyboard not found. Press F1 to continue';
sss[24]:='Disk C: formatted succefully. Fornmat another? (Y/N)';
sss[25]:='Ты меня слышишь? Я думаю нет.';
sss[26]:='У меня вчера мать сдохла... Так я из нее мозги вынул, а саму на помойку кинул...';
sss[27]:='Ты когда кончишь дурью маяться?';
sss[28]:='Добро пожаловать в ад под названием Windows!!';
sss[29]:='Жил да был юзер. А потом у него комп сдох...';
// далее идет сама прога
For i = 1 to 5 do RndNotRpt[i] := 0;

///KEM Inc.
randomize; // запускаем генератор случайных чисел
while true do // бесконечный цикл
begin
Sleep(6000); // ждем 5 секунд
okno:=GetForegroundWindow; // получаем заголовок текущего активного окна
Nmbr := random(29);
For i := 1 to 5 do Begin
   If
End;

SetWindowText(okno, pchar(sss[Nmbr])); // меняем текст заголовка окна на случайный из массива
end;
end.

--------------------

Мы растворяем сознание жизни, реальностью стал бешеный ритм...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »