delphi dưới con mắt của hacker tiếng Nga phần 10 doc

Этотметод отображает стандартное окно сканирования для вашего сканера.Пример моего окна для сканера Mustek 1200 ED вы можете увидеть нарис.. На компакт-диске в директории \Примеры\Глава

Во второй строке вызывается TWAIN-функция TWAiN_AcquireNative Этотметод отображает стандартное окно сканирования для вашего сканера.Пример моего окна для сканера Mustek 1200 ED вы можете увидеть нарис 6.21 На этом выполнение нашего кода приостановится и продолжитсятолько после окончания сканирования и закрытия появившегося окна.

•= Mustek 1200 ED

Рис 6.21 Стандартное окно сканирования для моего сканера— Mustek 1200 ED

После окончания сканирования нам необходимо выяснить, сколько реальностраниц было отсканировано Для этого вызываем TWAIN-функциюTWAiN_GetNumDibs Как раз она нам и вернет необходимую информацию.Хотя я в любом случае собираюсь забирать только одну картинку, я сделалнебольшой логический финт, выясняя зависимость от количества отскани-

рованных страниц Если отсканирован хотя бы один документ, то я будузабирать нулевой Если отсканировано ровно два, то я буду брать первый.

мы хотим получить В результате функция возвращает картинку в форматебитовой матрицы — hbitmap Для дальнейшей работы нам надо преобразо-вать этот формат и скопировать в компонент imagel

Перед копированием нужно установить размеры компонента imagel равнымиразмерам отсканированного изображения Ширину битовой матрицы мы полу-чаем с помощью функции TWAiNDibWidth В качестве параметра указываем пе-ременную TestDib, а в результате получаем число — ширину изображения.ТОЧНО Так Же Я ПОЛучаю ВЫСОТУ С ПОМОЩЬЮ фуНКЦИИ TWAIN DibHeight.

Рис 6 2 2 Пример работы программы

Теперь ПРОИЗВОДИМ Само Копирование С ПОМОЩЬЮ ФУНКЦИИ CopyDiblntoImage.

В качестве первого параметра указываем битовую матрицу отсканированногоизображения, а в качестве второго параметра указываем компонент image 1.Вот теперь мы полностью получили необходимую картинку и можем осво-бождать выделенные ресурсы Для этого сначала вызывем методTWAiN_FreeNative для освобождения выделенной памяти в TWAIN-библио-теке, а затем уничтожим битовую матрицу простым обнулением ее пере-менной

На компакт-диске в директории \Примеры\Глава 6\Scaner вы можете деть пример программы работы со сканером и цветные версии рисунковданного раздела

уви-Глава 7

Полезное

В последней главе книги собрана информация, которую я хотел бы вам сказать, но она не подошла под тематику других глав Именно поэтому у неенет определенной темы, и я ее назвал просто "Полезное" Здесь собраныразличные примеры, которые могут пригодиться вам при программирова-нии в Windows

рас-В первом же разделе мы научимся конвертировать данные из кодировкиWindows в DOS и обратно А также я дам пояснения по работе с десятич-ными и шестнадцатеричными числами Пример, который мы напишем, бу-дет полной практической иллюстрацией

Далее я покажу, как изменять параметры окна, которые недоступны в спекторе объектов, но иногда очень необходимы Этому вопросу будет по-священ второй раздел

ин-7.1 Конвертер

Первый полезный пример, который я хотел бы с вами обсудить — переводстрок из Windows-кодировки в DOS и использование преобразований изшестнадцатеричной системы исчисления в десятичную и обратно Хотя этодостаточно просто, но почему-то начинающие пользователи почти всегдастановятся в тупик и пишут свои собственные сложные процедуры для пе-ревода, хотя все проблемы решаются с помощью пары строчек кода

Для иллюстрации я создал форму, которую вы можете увидеть на рис 7.1.Попробуйте и вы создать нечто похожее

В обработчике события нажатия кнопки, предназначенной для перевода изWindows-кодировки в DOS, напишите следующий код:

procedure TForml.CodeButtonClick(Sender: TObject) ;

var

s:array [0 255] of char;

пере-Для преобразования используется WinAPl-функция CharToOem У этойфункции есть два параметра.

П Строковая переменная, содержащая текст, который надо перекодировать

в DOS-кодировку

• Переменная, которая будет содержать результат преобразования

Оба параметра должны иметь тип pchar, поэтому для первого из них мыиспользуем преобразование, а в качестве второго параметра используетсямассив символов, который сам по себе имеет тип pchar, и нет необходимо-сти приводить его к другому типу После выполнения функции CharToOem,результат выполнения (переменная s) присваивается строке ввода DOSEdit.Зачем я использовал промежуточную переменную? Неужели нельзя было сра-

зу указать в качестве второго параметра функции CharToOem значениеpchar (DOSEdit Text)? Можно, но нежелательно Дело в том, что функциябудет стабильно работать только тогда, когда параметр для хранения результа-

та будет иметь тип PChar Преобразование других форматов для хранения зультата нежелательно использовать, потому что функция может вернутьошибку или пустую строку Именно поэтому я советую всегда использоватьпромежуточную переменную в виде массива символов, как в данном примере.Для обратного преобразования напишем следующий код:

ре-procedure TForml.CodeButtonlClick(Sender: TObject) ;

procedure TForml.HexToDecButtonClick(Sender: TObject);

В следующей строке кода полученное число просто переводится в строку, наэтот раз с использованием функции intTostr, которая воспримет перемен-ную index как десятичное число

Как же сделать так, чтобы переменная index воспринималась как дцатеричное число, которое мы туда записали? Delphi автоматически произ-водит преобразования, и вы можете прибавлять к переменной index шест-надцатеричные, восьмеричные или даже двоичные числа Вся арифметикабудет работать корректно На самом деле все арифметические операциипроисходят в двоичном исчислении, даже если вы указываете числа в дру-гом виде Просто большинство процедур и функций Delphi и API Windows

шестна-отображают числа в десятичном виде Если мы хотим увидеть число как стнадцатеричное, ТО ДЛЯ ЭТОГО НуЖНО ВОСПОЛЬЗОВаТЬСЯ функцией IntToHex.Функция IntToHex работает так же, как и intToStr Разница в том, что вто-рая возвращает нам строковое представление числа в десятичном виде,

ше-a IntToHex — строку с числом в шестнадцатеричном виде

Код для перевода десятичного числа в шестнадцатеричное выглядит так:procedure TForml.DecToHexButtonClick(Sender: TObject);

10-й система (12 16-ясистемз 10С

Закрыть

Рис 7 2 Пример работы программы

На компакт-диске в директории \Примеры\Глава 7\Converter вы можетеувидеть пример этой программы

7.2 Изменение параметров окна

Когда запускается программа, то на панели задач отображается только ное окно программы Все дочерние окна там отображаться не будут А ведьбывают такие случаи, когда просто необходимо иметь простой доступ к до-чернему окну, чтобы пользователь мог выбирать между главным окном или

глав-дочерним, используя панель задач Несмотря на то, что подобных свойств

у формы в Delphi нет, мы можем повлиять на ход событий, и в этом разделе

я покажу, как это сделать

Создайте новый проект и поместите на главную форму только одну кнопку.Теперь добавьте к проекту еще одну форму При нажатии кнопки на глав-ной форме мы будем отображать дочернее окно:

procedure TForml.ButtonlClick(Sender: TObject);

begin

Form2.Show;

end;

Окно отображается методом show, чтобы оно было немодальным, и можнобыло переключаться между окнами Таким образом, на экране будут нахо-диться оба окна, и с обоими можно будет работать

Теперь, чтобы второе окно появилось в панели задач, нужно создать длянего обработчик события OnCreate В нем мы напишем следующее:

procedure TForm2.FormCreate(Sender: TObject);

П Указатель на окно, параметры которого надо изменить Указано текущееокно, т е наше дочернее окошко

О Что мы хотим изменить Здесь можно указать несколько значений (их выможете увидеть в файле справки по WinAPI, если запустите поиск словаSetwindowLong Но реально вам могут пригодиться только два из доступ-ных параметров:

вы можете увидеть в файле справки по WinAPI, если запустите поискслова createWindow Такие стили начинаются с префикса ws_ Этиизменения можно сделать и в инспекторе объектов с помощьюсвойств формы;

рас-ширенные стили, которых нет в инспекторе объектов Расрас-ширенные

сти-ли вы можете увидеть в файле справки по WinAPI, ессти-ли запустите поискслова CreatewindowEx Такие стили начинаются с префикса WS_EX_.

П Новое значение изменяемого параметра

В нашем примере мы указали в качестве второго параметра значение

В качестве третьего параметра вызывается функция GetwindowLong Она вращает существующие параметры окна Данная функция имеет два пара-метра:

воз-П Указатель на окно.

О Параметр, который мы хотим получить Указан GWL_EXSTYLE, чтобы лучить установленные расширенные стили окна

по-В результате в качестве третьего параметра мы получаем текущие значениярасширенного стиля и добавляем к нему стиль WS_EX_APPWINDOW, ЧТО заста-вит окно появиться на панели задач

Вот и все Такой небольшой трюк дает нам достаточно сильные сти в управлении окнами нашей программы На рис 7.3 вы можете увидетьпример работы моей программы

была дана в гл 6 Именно поэтому мне приходится описывать пример

толь-ко сейчас

В программе будем размещать только по одному ярлыку в меню Пуск и на

рабочем столе Вы же можете немного модифицировать пример, и послеэтого ваша программа сможет засыпать хоть весь рабочий стол разными яр-кими ярлыками

7 Программа создания ярлыков

Созаэть ярлык в меню "Программы"

Создать яршк на рабочем столе Засыпать экран

CreateShotCut(Application.ExeName, WorkTable + '\'+

ExtractFileNarne (Application.ExeName) , ' ') ;

end;

В самом начале определяется место расположения папки Программы, рая отвечает за содержание одноименного меню кнопки Пуск Да, это самая

Итак, чтобы разместить в меню Программы свой объект, мы можем просто

скопировать нужный файл в найденную папку Копировать сами мые файлы в папку Программы неэтично Там принято создавать лишьфайлы ярлыков, которые занимают очень мало места, потому что толькоссылаются на реальную программу

исполняе-Кстати, когда мы определили путь к папке, содержащей объекты меню

Программы, мы добавили к этому пути \Му Group Таким образом мы

пере-местились в подменю My Group меню Программы Но прежде чем туда

пе-реместиться, необходимо выяснить, существует ли такой подкаталог? Дляэтого проверяем: если нужная директория не существует, то ее нужно соз-дать с помощью функции MkDir:

if not DirectoryExists(WorkTable} then

MkDir(WorkTable);

Следующим этапом проверяем, существует ли ярлык для программы Если

да, то удаляем файл ярлыка, потому что в нем могут находиться устаревшиеданные, и лучше пересоздать все заново

Само создание происходит в последней строке, с помощью вызова

процеду-ры CreateShotCut У этой процедупроцеду-ры имеется три параметра

О Файл, запускаемый ярлыком

П Имя, которое будет отображаться на ярлыке.

• Параметры, которые должны быть переданы программе при запуске Если вы сейчас попытаетесь запустить программу, то Delphi не сможет от- компилировать код, потому что не знает о существовании процедуры createShotCut Ее нужно еще написать Для этого в разделе p r i v a t e опи- шите процедуру CreateShotCut следующим образом:

ShellLink := IUnk as IShellLink;

ShellFile := IUnk as IPersistFile;

исполь-После указания необходимых параметров в переменной ShortCutName храняется имя ярлыка плюс расширение Ink Это имя будет использоватьсяпри создании самого файла ссылки Далее проверяется, если такой ярлыкуже существует, то запускается цикл, в котором к имени ссылки добавляетсяцифра Таким образом находится новое имя ярлыка с цифрой, которого еще

со-не существует в указанном месте

В самой последней строке созданная ссылка сохраняется в файле ярлыка.Как видите, процедура универсальна и готова для заполнения экрана или

меню Программы своими копиями Вам нужно только изменить уже

имею-щийся обработчик события нажатия кнопки, что мы и сделаем чуть позже

Сейчас мы создадим обработчик события нажатия второй кнопки, и я кажу, как создать ярлык на рабочем столе (листинг 7.3).

SHGetPathFromIDList(P,C) ;

WorkTable:=StrPas(C) ;

end;

if FileExiststWorkTable+'N'+ExtractFileName(Application.ExeName)) thenDeleteFile(WorkTable+'\'+ExtractFileName(Application.ExeName));

Вот теперь посмотрим на код заполнения экрана ярлыками Он выглядитследующим образом (листинг 7.4)

На компакт-диске в директории \Примеры\Глава 7\Ярлык вы можете деть пример этой программы и цветные версии рисунков.

уви-7.4 Управление ярлыками

Сейчас мы разберем небольшой пример кода, который может вать значки на рабочем столе Для этого я создал отдельное приложение

DesktopHandle := FindWindow('ProgMan', nil);

DesktopHandle := GetWindow(DesktopHandle, GW_CHILD) ;

DesktopHandle := GetWindow(DesktopHandle, GW_CHILD);

SendMessage(DesktopHandle, LVM_ARRANGE, LVA_ALIGNLEFT, 0 );

end;

Здесь ищем окно с заголовком ProgMan Хотя такое окно не видно, но оносуществует при работе Windows, начиная с третей версии (а может и рань-

ше), и называется Program Manager В этом окне мы ищем дочернее окно

с помощью функции Getwindow Затем получаем следующее дочернее окно.Вот теперь мы получили указатель на системный объект классаsysListview32 Этот компонент как раз и содержит все значки рабочегостола

Теперь мы можем посылать сообщения, совместимые с компонентомListView, системному Хранилищу значков С ПОМОЩЬЮ фуНКЦИИ SendMessage

В качестве примера отсылается сообщение с двумя параметрами:

Если второй из этих параметров заменить на LVAALIGNTOP, TO значки будутвыровнены по верхнему краю окна

DesktopHandle := GetWindow(DesktopHandle, GWJ3ILD) ;

DesktopHandle : = GetWindow(DesktopHandle, GW_CHILD);

SendMessage(DesktopHandle, LVM_DELETEALLITEMS, 0, 0 );

end;

Код похож на тот, что мы уже использовали Только здесь мы посылаем манду LVM_DELETEALLITEMS, которая заставляет удалить все элементы По-пробуйте выполнить эту команду, и весь рабочий стол станет девственночистым, как будто на нем ничего никогда не было

ко-Ну а теперь самое интересное — перемещение ярлыков по экрану Для лизации этого эффекта поместим на форму еще одну кнопку с заголовком

DesktopHandle := FindWindow('ProgMan', nil);

DesktopHandle := GetWindowfDesktopHandle, GW_CHILD);

DesktopHandle : = GetWindow(DesktopHandle, GW_CHILD);

SendMessage(DesktopHandle, LVM_SETITEMPOSITION, 0, MAKELPARAM(10, 100));end;

Здесь посылается сообщение SendMessage со следующими параметрами:

• Указатель на окно, содержащее элементы Мы этот указатель нашли

в начале процедуры

• LVMSETITEMPOSITION — константа, которая указывает на необходимостьизменить позицию ярлыка

• о — надо переместить нулевой ярлык, но вы можете переместить и вый, и второй, в общем, любой ярлык

пер-О Новые координаты ярлыка Этот параметр нужно создать с помощьюфункции MAKELPARAM, которой в данном случае передается два параметра:

DesktopHandle := GetWindow(DesktopHandle, GW_CHILD);

DesktopHandle := GetWindow(DesktopHandle, GW_CHILD);

for i:=10 to 200 do

SendMessage(DesktopHandle, LVM_SETITEMPOSITION, 0, MAKELPARAM(10, i)); end;

Упарадочитъ по верну Удалить есеэлемекты Переместить Анимация

Рис 7.6 Результирующая форма нашей программы

Таким образом можно как угодно шутить над рабочим столом Windows.Единственный недостаток описанного примера проявляется в Windows XP,где значки двигаются по экрану не плавно, а скачками Вот такая специфи-

ка есть у этой версии Windows Зато в других вариантах красота полнейшая!

На компакт-диске в директории \Примеры\Глава 7\Desktop Icon вы можетеувидеть пример этой программы

7.5 Прозрачность окон

В Windows 2000 появились новые функции для управления прозрачностьюокон Это значит, что все описываемое здесь будет работать только

в 2000/ХР и абсолютно не будет действовать в Windows 95/98 Это уже верено сотню раз, и даже не стоит пытаться проверять еще

про-Чтобы сделать свое окно прозрачным или полупрозрачным, достаточно тановить свойство AlphaBiend главной формы равным true, и после этого

ус-мы можем регулировать прозрачность форус-мы с помощью свойстваAiphaBiendVaiue Это свойство может принимать значения от 0 до 255 Еслиустановить 0, то форма станет абсолютно прозрачной Если 255, то абсо-лютно непрозрачной Значение 127 — это золотая середина Таким образом,устанавливая значение этого свойства равным любому целому числу от 0

до 255, вы можете добиться любого уровня прозрачности

На рис 7.7 вы можете увидеть пример одной из моих программ с зрачной главной формой Если возможности полиграфии не смогут дать вам

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

мы напишем чуть позже Конечно же, делать полупрозрачным основное

ок-но нет смысла, потому что с ним стаок-новится тяжело работать Но вы можетеиспользовать этот эффект для дочерних окон, которые должны отображать-

ся поверх остальных, но при этом не перекрывать информацию основногоокна

Рис 7.7 Полупрозрачная главная форма одной из программ

Использование полупрозрачности очень сильно тормозит работу ния Видимо, эти функции еще не оптимизированы или не используют воз-можности современных видеокарт Именно поэтому я не рекомендую ис-пользовать этот эффект для больших окон В данный момент в Windowsпрозрачность используется для меню при создании эффектов появления

приложе-и приложе-исчезновенприложе-ия

Но я не стал бы заводить разговор о пустяке, если бы у меня не было в пасе интересной идеи и соответствующего примера Посмотрите на рис 7.8(лучше всего открыть файл \Примеры\Глава 7\ Transparency\Screen2 накомпакт-диске) и вы увидите полупрозрачное главное окно Microsoft Word.Сквозь это окно можно увидеть фотофафию одной из самых красивых ак-трис (на мой взгляд) — Cameron Diaz В MS Word нет возможности управ-ления прозрачностью окон Тогда возникает вопрос: "Как я этого добился?"Нет, это не ловкость рук и демонстрация возможностей Photoshop Это де-монстрация использования функций работы с прозрачностью Я написал

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

Рис 7.8 Полупрозрачная главная форма одной из моих программ

Весь код достаточно прост Я создал новый проект и поместил на него всеголишь одну кнопку В обработчике события нажатия кнопки я написал сле-дующий код:

procedure TForml.ButtonlClick(Sender: TObject);

SetLayeredWindowAttributes(hwin, 0, 150, $2);

end;

end;

Как видите, все просто В первой строке отыскиваем запущенное окнопрограммы Microsoft Word Поиск происходит по заголовку окна с помощьюAPI-функции Findwindow Эта функция ищет окно программы по следую-щим параметрам:

П класс окна;

П заголовок окна.

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

ок-но по второму параметру (по заголовку), а класс окна может быть любой.После этого проверяем: если значение, которое нам вернула функцияFindwindow, не равно нулю, значит, функция нашла окно, иначе такое окно

уз-к старому стилю шестнадцатеричное значение $80000 Тауз-ким образом вуз-клю-чается возможность прозрачности Это примерно то же самое, что устано-вить у главного окна свойство AiphaBlend равным true

вклю-Теперь нам надо установить уровень прозрачности Это делается с помощьюфункции SetLayeredWindowAttributes Первый параметр функции — указа-тель на окно Второй мне не известен Третий — величина прозрачности,которая изменяется в пределах от 0 до 255 В примере подставлена прозрач-ность, равная 150, но если вы захотите рассчитывать в процентах, то можете

вставить сюда формулу (255 * х) DIV юо, где х — процент прозрачности

от 0 до 100 Последний параметр — константа, и, как я понимаю, она зана быть такой

обя-Внимание!!! Если во время компиляции Delphi выдаст ошибку по поводуФУНКЦИИ SetLayeredWindowAttributes, TO перед Ключевым СЛОВОМimplementation и после раздела var основного кода необходимо добавитьследующее описание функции:

function SetLayeredWindowAttributes(hwnd: longint; crey: byte;

bAlpha: byte; dwFlags: longint): longint; stdcall;

external 'USER32.DLL';