Home

Page 347
Page 347
background image

340 Глава 7

 0, 150, $2);

end;

end;

Как видите, все просто. В первой строке отыскиваем запущенное окно
программы Microsoft Word. Поиск происходит по заголовку окна с помощью

API-функции

 Эта функция ищет окно программы по следую-

щим параметрам:

 класс окна;
 заголовок окна.

В качестве класса указано значение nil. Это означает, что нужно найти ок-

но по второму параметру (по заголовку), а класс окна может быть любой.

После этого проверяем: если значение, которое нам вернула функция

Findwindow, не равно нулю, значит, функция нашла окно, иначе такое окно

не запущено или вы неправильно ввели заголовок окна. Если окно найдено,

то выполняются следующие три строчки:

 or $80000);

 0, 150, $2);

Весь этот код выполняется с найденным окном. В первой строке мы уз-

наем текущие параметры окна с помощью уже знакомой функции

 Во второй строке устанавливаем новые параметры, добавив

к старому стилю

 значение $80000. Таким образом вклю-

чается возможность прозрачности. Это примерно то же самое, что устано-

вить у главного окна свойство

 равным true.

Теперь нам надо установить уровень прозрачности. Это делается с помощью

функции SetLayeredWindowAttributes. Первый параметр функции

 указа-

тель на окно. Второй мне не известен. Третий — величина прозрачности,

которая изменяется в пределах от 0 до 255. В примере подставлена прозрач-
ность, равная 150, но если вы захотите рассчитывать в процентах, то можете

вставить сюда формулу (255 * х)

 юо, где х — процент прозрачности

от 0 до

 Последний параметр — константа, и, как я понимаю, она обя-

зана быть такой.

Внимание!!! Если во время компиляции Delphi выдаст ошибку по поводу

ФУНКЦИИ SetLayeredWindowAttributes,

 Ключевым СЛОВОМ

implementation и после раздела

 основного кода необходимо добавить

следующее описание функции:

function

 longint; crey: byte;

bAlpha: byte;

 longint): longint; stdcall;

external


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.