WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 |   ...   | 3 | 4 ||

«Михаил Фленов Сан кт- Петербург -БХВ-Петербург» 2003 УДК 681.3.068x800.92Delphi ББК 32.973.26-018.1 Ф69 Флеиов М. Е. Профаммирование в Delphi глазами хакера. — СПб.: БХВ-Петербург, 2003. - 368 с: ил. ...»

-- [ Страница 5 ] --

if (GetDeviceCaps(Canvas.Handle, POLYGONALCAPS) and PC_WIDE)=PC_WIDE then Memol.Lines.Add('Поддержка Wide Borders');

if (GetDeviceCaps(Canvas.Handle, POLYGONALCAPS) and PC_STYLED)=PC_STYLED then Memol.Lines.Add('Поддержка Styled Borders');

if (GetDeviceCaps(Canvas.Handle, POLYGONALCAPS) and PC_W IDE STYLED) =PCWIDESTYLED then Memol.Lines.Add('Поддержка Wide And Styled Borders';

;

if" (GetDeviceCaps (Canvas. Handle, POLYGONALCAPS) and PC_INTERIORS)=PC_INTERIORS then Memol.Lines.Add('Поддержка Interiors');

end;

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TC_OP_CHARACTER)=TC_OP_CHARACTER then Глава Memol.Lines.Add('Capable of Character Output Precision');

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TCOP_STROKE)=TCOP_STROKE then Memol.Lines.Add('Capable of Stroke Output Precision');

Железная мастерская if (GetDeviceCaps(Canvas.Hand!e, TEXTCAPS) and TC_CP_STROKE)=TC_CP_STROKE then Memol.Lines.Add('Capable of Stroke Clip Precision');

if (GatDeviceCaps(Canvas.Handle, TEXTCAPS) and TC_CR_9Q)=TC_CR_90 then kernel.Lines.Add{'Поддержка 90 Degree Character Rotation');

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS} and TC_CR_ANY)=TC_CR_ANY then Memol.Lines.Add('Поддержка Character Rotation to Any Angle');

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TC_SF_X_YINDEP)=TC_SF_X_YINDEP then Mernol.Lines. Add ( X And У Scale Independent1);

' if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TC_SA_DOUBLE) =TC_SA_DOUBLE then Memol.Lines.Add{'Поддержка Doubled Character Scaling');

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TC_SA_INTEGER)-TC_SA_INTEGER thsn Memol.Lines.Add('Поддержка Integer Multiples Only When Scaling1);

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TCSA_CONTIN) =TC_SA_CONTIN then Memol.Lines.Add('Поддержка Any Multiples For Exact Character Scaling');

if {GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TC_EA_DOUBLE)=TC_EA_DOUBLE then Memol.Lines.Add;

'Поддержка Double Weight Characters');

if {GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TC_IA_ABLE)=TC_IA_ABLE then Memol.Lines.had('Поддержка Italics');

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TCJJAABLE)=TC_UA_ABLE then Memol.Lines.Add!'Поддержка Underlines');

if (GetDeviceCaps (Canvas.Handle, TEXTCAPS) and TCSO_ABLE)=TC_SO_ABLE then Memol.Lines.Add('Поддержка Strikeouts');

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TC_RA_ABLE)==TC_RA_ABLE then Memol.Lines.Add('Поддержка Raster Fonts 1 );

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TC_VA_ABLE)=TC_VA_ABLE then Memol.Lines.Add('Поддержка Vector Fonts');

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and TC _SCROLLBLT)=TC_SCROLLBLT then Memol.Lines.Add{'Cannot Scroll Using Bits 1 );

end;

Глава Несмотря на то, что кода очень много, он очень прост. Все здесь крутится вокруг вызова API-функции GetDeviceCaps. У этой функции два параметра: О указатель на устройство, информацию о котором нужно получить;

П флаг, указывающий на ту информацию, которая нас интересует. Я мог бы описать все флаги, но это не будет более понятно, чем сам исходный код. Именно поэтому я привел исходник полностью. Вам остается только посмотреть, какие параметры запрашиваются и какой текст выводится после этого в компонент Memoi. Например, самым первым идет свойство TECHNOLOGY, указывая в качестве первого параметра указатель на окно. Результатом будет технология устройства (для монитора — растровый дисплей). Если указать в качестве первого параметра указатель на принтер (printer. Handle), то в качестве результата можем получить растровый принтер. По крайней мере, я получил именно это значение для своего Hewlett Packard 690C.

7 Инфоршция о дисплее Тип;

Растровый дисплей Ширина в миллиметрах 320 Высота в миллиметра* 240 Ширина в пикселях 1152 Высота в пикселях 8Б4 Количество пикселей не дюйм по горизонтали 96 Количество пикселей на дюйм по вертикали 96 Количество бит на пиксель 32 Количество цветовых плоскостей 1 Количество цветов в спет ем кой палитре 0 Вертикальная частота развёртки 100 Может передавать Bitmaps Поддержка Bitmaps > 64К Поддержка SetDIBits and GelDIBils Посшержка SetDIBitsToDevice Can Perform Floodfills Поддержка Windows 2.0 возможности П одд ер жк a S tf etchB It Закрыть Рис. 6. 1 4. Результат работы программы На рис. 6.14 вы можете увидеть результат работы моей программы. Глядя на это окно, вы сможете увидеть, как работает пример. В этом примере нет выбора принтера, поэтому будет использоваться тот, который выбран принтером по умолчанию. Чтобы изменить принтер по умолчанию, нужно зайти в Пуск\Настройки-Панель управления\Принтеры, щелкнуть правой кнопкой мыши по ярлыку нужного принтера и в появившемся меню выбрать пункт меню "Использовать по умолчанию". На компакт-диске в директории \Примеры\Глава 6\Display вы можете найти пример этой программы.

Железная мастерская 6.9. Работа с типами файлов Если вам надо узнать, какой значок связан с определенным расширением, какая программа запускается для обработки определенного типа файлов или вы хотите назначить свою программу для обработки определенного типа файлов, то этот раздел — для вас. Но все это мы будем узнавать постепенно.

6.9.1. Получение информации о типе файлов Для начала научимся определять информацию и значок, связанные с определенным расширением. Для примера нам понадобится: П поле ввода Edit для ввода типа файлов (например, doc);

•I кнопка, нажимая которую мы будем получать необходимую информацию;

П четыре компонента тъаЬе! для вывода необходимой информации: • Параметры, В свойстве Name укажите ParamLabei;

• Описание типа, В свойстве Name укажите DescriptionLabei;

• Описание файла, В С О С В Name укажите FileDescriptionLabei;

В ЙТе • программа, которой открывается указанный тип, в свойстве Name укажите OpenWithLabei;

О один компонент типа Timage. В этой картинке мы будем выводить изображение значка, связанного с указанным типом. На рис. 6.I5 вы можете увидеть мою форму, созданную для данного примера. Как всегда вы можете видоизменить ее внешний вид, но необходимые для примера компоненты на форме должны быть.

7 Информация о типе файпов Расширение JEdTi Параметры: О писание тип а. PaiamLabel DescriptionLabel Прочитать Описание файла. FileDescriptionLabel Описание файла;

OpenWithLabel Иконка 1 |.''.'.'.''.

Закрьгть Рис. 6.15. Форма будущей программы Глава Вся необходимая информация находится в реестре, и именно оттуда мы и будем ее читать, поэтому в раздел uses нужно сразу же добавить соответствующий М Д Л — Registry. ОУЬ После нажатия кнопки Прочитать мы должны выяснить информацию об указанном типе файла. Для этого в обработчике события Onclick кнопки напишите следующее (листинг 6.5).

var Reg: TRegistry;

IconFileName, Iconlndex: String;

PC: ArrayfO..255] of Char;

i: Integer;

ExtIcon:TIcon;

begin Extlcon:=TIcon.Create;

Reg : TRegistry.Create;

= try with Reg do begin RootKey : HKEY_CLASSES_ROOT;

= OpenKey(Edit1.Text, True);

ExtDescription := ReadString('');

OpenKey('\' + ExtDescription, True);

FileDescription : ReadString('');

= OpenKey('DefaultIcon1, True);

IconFileName : = ReadStringf'');

SplitStr(',', IconFileName, Iconlndex);

StrPCopy(PC, IconFileName);

Extlcon.Handle :- ExtractlconfO, PC, StrToInt(Iconlndex));

Imagel.Picture.Assign(Extlcon);

OpenKey('\' + ExtDescription + '\Shell\Open\Command', True);

OpenWith : ReadString('');

= i : Pos( "", OpenWith);

= if i = 1 then begin OpenWith : Copy(OpenWith, 2, Length(OpenWith) - 1);

= i : Pos("", OpenWith);

= Железная мастерская ParamString := Copy(OpenWith, i + 3, Length(OpenWith) - i - 3);

OpenWith := Copy(OpenWith, 0, i - 1);

end else SplitStr{' ', OpenWith, ParamString} end;

fia11/ n.. Reg.Free;

ExtIcon.Free;

ParamLabel.Capt ion:-ParamSt ring;

DescriptionLabel,Caption:=ExtDescription;

FileDescriptionLabel.Caption:=FileDescription;

OpenWithLabel.Caption:=OpenWith;

end;

Редактор реестра Файл Правка t..+ +, LJ п LJ ^ Вид Избранное Справка л ' иид.^(Поумопчанию) 1 MEditFlags тип REG_S? REG BINARY ' значение Документ Microsoft Word 00000100 т. G j Word,Basic.8 Word.Ba5ic,9 Word.Docament Word.Document6 Word,Documents О AppRegistry |_J CL5ID C J Defaultlcon i J DocObject,+ L J HTML Handler CJ Insertable • !_3 protocol + -_J shell О Word.Picture L_J Word.Picture.6 L_j Word.Picture.S LJ Word.RTF,8 C_l Word,Template,В i :

V Мой ^;

oмnьютep\HKEV_CLA5SES_ROOT\Word Document. Рис. 6.16. Раздел Word.Document.8 реестра После открытия реестра мы сразу же переходим в раздел HKEY_CLASSES_ ROOT. Именно здесь находится вся необходимая информация в разделах с именами в виде типа файла, например.doc. В этом разделе нужно прочитать значение по умолчанию. Это значение используется в качестве имени раздела, в котором хранится дополнительная информация о типе файла. Например, для типа файлов doc у меня установлено значение по умолчанию Глава Word.Document, 8. Чтобы прочитать остальную информацию, нам надо перейти В раздел HKEY_CLASSES_ROOT\Word.Document.8 (цифра 8 является номером версии]. В этом разделе мы можем прочитать в качестве значения по умолчанию более полное описание типа файла. В подразделе Defauiticon вы можете узнать значок, заданный по умолчанию для данного типа приложения, который используется для индикации в Проводнике. Изображение значка можно получить с помощью функции Extract icon. Этой функции нужно передать три параметра: О указатель на экземпляр;

О полный путь к имени файла, иконку которого нужно получить;

П индекс иконки. Функция загружает значок из файла и возвращает ее нам. Мы сохраняем ее в переменной Exticon, а потом присваиваем компоненту image 1. В подразделе \shell\Open\command вы можете узнать путь к программе, которая используется для открытия файла данного типа.

7'Информация о гипе файпов Расширение Ыос Параметры Описание типа;

Word.Document.E ВПК Описание Файла: Документ Microsoft Woid Описание Файла: F:\Piogim FilesS Micros oft Qffiee\0ffice\WINWORD.EXE Иконка.' Закрыть Рис. 6.17. Результат работы программы На рис. 6.17 вы можете увидеть результат работы программы для расширения.doc. Обратите внимание, что перед именем расширения обязательно должна быть точка. Если пользователь не поставит точки, то может произойти ошибка, и мы вообще не получим никакой информации. Чтобы этого не произошло, можно модифицировать пример, добавив в самом начале следующую проверку:

Железная мастерская ExtStr;

3tring;

begin ExtStr:=Editl.Text;

if ExtStr[l]<>'.' then Insert('.', ExtStr, 1);

Editl.Text:=ExtStrj end;

Здесь я завел отдельную переменную, с помощью которой проверяю: если первый символ не равен точке, то она вставляется в первую позицию. На компакт-диске в директории \Примеры\Глава 6\1соп вы можете увидеть пример этой программы.

6.9.2. Связывание своей программы с пределенным типом файлов Теперь создадим маленький пример, который будет отображать картинки в BMP-формате. Самое вкусное в этой программе будет то, что мы зарегистрируем ВМР-формат за нашей программой. Когда вы захотите просмотреть файл в этом формате, то будет запускаться наше приложение. Итак, давайте создадим новый проект. На форме нам понадобится только компонент Timage (я растянул его по всей форме) и кнопка Зарегистрировать. Помимо этого, я установил у главной формы свойство WindowsState равным значению wsMaximized. На рис. 6.18 вы можете увидеть форму нашей будущей программы.

чш Просмотрщик картинок Закрыть Зэрегист рироват в Рис. 6. 1 8. Форма будущей программы Глава В обработчике нажатия кнопки Зарегистрировать пишем следующий код: var Reg: TRegistry;

begin Reg := TRegistry.Create;

Reg.RootKey : HKEY_CLASSESROOT;

= Reg.OpenKeyC.BMP1, True);

Reg.WriteStringC ', 'BMPfile') ;

Reg.CloseKey;

Reg.CreateKeyf'BMP' +'file_cyd') ;

Reg.OpenKeyf'BMPfile\DefaultIcon', True);

Reg.WriteString('', Application.ExeName + ',0');

Reg.CloseKey;

Reg.OpenKey {'BMPfile\shell\open\cotnmand', True);

Reg.WriteStringC', Application. ExeName + ' "%1"');

Reg.CloseKey;

Reg.Free;

end;

В принципе, мы тут записываем ту же информацию, которую читали в прошлом примере. Сначала открываем раздел.вмр и записываем туда значение по умолчанию — строку BMPfile. Эта строка будет восприниматься как имя раздела, в котором нужно искать информацию о программе, которая должна запускаться при запуске файла этого типа. После этого создаем и открываем раздел BMPfile. Здесь записываем в раздел Defauiticon значок, связанный с типом файла. В качестве значка указываем полный путь к своей программе и через запятую пишем о. Это значит, что для отображения файлов BMP-типа будет использоваться нулевой значок (основной) моей программы. На рис. 6.19 показана одна из моих директорий с BMP-файлами. Посмотрите, какой значок установлен для данного типа файлов. Именно его я указал в качестве основного в своей программе. Последнее, что мы обязательно должны сделать — записать в раздел BMPfiie\sheii\open\command полный путь к программе, которая будет обрабатывать данный тип файлов. Сюда я записываю полный путь к своей программе. Попробуйте скомпилировать пример, только не забудьте добавить в раздел uses модуль Registry, потому что наша программа работает с реестром. Запустите программу и нажмите кнопку Зарегистрировать. Теперь, если попытаться запустить любой BMP-файл, то запустится не стандартный Paint или какая-либо другая программа, а именно наш пример.

Железная мастерская to Buttons Файл Правка Вид Избранное Сервис !

Справка Q Назад - ijiV,.У у ;

Поиск ;

- ' Папки [Щ]» l.bmp abort.btnp alarm,bmp alatmrng.bmp.е,'.-| мычать ию J ) Копировать все объертына animatn.bmp arrowld.bmp arrowldl.bmp artowldr.bmp Задач* д п я файлов и папок - Щ Создать ноеую папку artowlLbmp artowlr.bmp arrowlu.bmp arrowlul.bmp Рис. 6.19. Файлы BMP со значками от моей программы Если вы уже попробовали описанное в действии, то наверно заметили, что когда вы дважды щелкаете по BMP-файлу, то наша программа стартует, но не обрабатывает выбранный файл. Это потому что мы еще ничего не сделали для того, чтобы отображать изображения в компоненте Timage. Давайте исправим эту ситуацию. Имя и полный путь к файлу передается нам в качестве параметра. Чтобы считать эти параметры, мы должны создать обработчик события onshow для главной формы и там написать следующий код:

procedure TForml.FormShow(Sender: TObject);

stnString;

i:Integer;

begin if (ParamCount > 0) then begin Str:=ParamStr(l);

for i:=2 to ParamCount do begin Str:=Str+' '+ParamStr(i);

end;

Imagei.Picture.LoadFromFile(Str);

end;

end;

Глава Здесь в первой строке проверяется значение переменной ParamCount. Эта переменная хранит количество параметров, переданных нашей программе. Если оно больше о, то выполняется код загрузки изображения. Но для начала мы должны узнать имя файла, которое нужно загрузить. Если в имени файла нет пробелов, то его можно узнать из первого параметра — Paramstr (1). Если пробелы есть, то имя может быть разбито на несколько параметров, и в этом случае мы должны их все сложить в одно целое. Для этого запускаем цикл:

Str:=ParamStr(l);

for i:=2 to ParamCount do begin Str:=Str+' end;

'+ParamStr(i);

В этом цикле все переданные параметры объединяются в одну длинную строку. Вот теперь мы имеем полный путь к файлу, который надо загрузить, и смело делаем Э О С П М Щ Ю Imagel. Picture. LoadFromFile (Str). Т ОО Ь На компакт-диске в директории \Примеры\Глава 6\Image Viewer вы можете увидеть пример этой программы и цветные версии рисунков.

6.10. Работа со сканером Последнее, что я хочу рассказать в этой главе — это работа со сканером и сканирование изображений. Сейчас сканирующие устройства стоят достаточно дешево и при этом обладают приемлемыми характеристиками. У меня достаточно много знакомых, которые имеют в своем арсенале подобные устройства и регулярно работают с отсканированными изображениями. В производстве люди также находят применение сканирующим устройствам, поэтому умение работать со сканером прибавит вам немного неоценимого опыта. Для работы со сканером у Delphi нет никаких компонентов или заголовочных файлов. Но на диске к этой книге вы сможете найти все необходимое в директории Headers/Scanner. Для компиляции примера из этого раздела вы обязательно должны иметь два файла eztwain.obj и MultiTWAIN.pas. Оба эти файла нужно поместить в одну директорию с исходным кодом проекта. В названии обоих файлов присутствует пять одинаковых букв — TWAIN. Это надстройка, через которую наша программа будет работать со сканером. Если в вашей системе установлен сканер, то зайдите в директорию, в которую у вас установлен Windows, и вы увидите поддиректорию twain или twain_32. Она устанавливается вместе с драйверами сканера и содержит библиотеки, упрощающие доступ к устройству. В этих библиотеках находится Железная мастерская маленькая программа в виде dll-файла, которая будет вызываться, когда нам нужно что-то отсканировать. Таким образом, все программы, которые работают со сканером через этот интерфейс, будут использовать схожее окно для сканирования и вам не надо думать над его работой, все будет происходить автономно.

/ Сканирование ВНИЗ Выбрать сканер! ;

Сканировать Закрыть Рис. 6.20. Форма будущей программы Итак, создадим в Delphi новый проект. Сразу же сохраните его в какойнибудь директории и поместите туда оба указанных файла. В раздел uses главной формы нужно добавить ссылку на модуль MuitiTwain, чтобы вы могли использовать его возможности. На форме нам понадобится две кнопки: П Выбрать сканер (если их несколько);

П Сканировать.

Помимо этого, по всей рабочей области окна я растянул компонент TscroiiBox, который автоматически добавляет прокрутку. Внутрь этого компонента я поместил компонент Timage, в который мы будем помещать отсканированное изображение. У этого компонента нужно установить свойство AutoSize равным значению true. Если изображение будет больше, чем родительский компонент TscroiiBox, то мы сможем пролистать его. Теперь в разделе private объявим несколько переменных, которые нам пригодятся в процессе сканирования:

private { Private declarations ) hdib, testdib: hbitmap;

w,h,n: integer;

Глава В обработчике события OnCreate формы нужно обнулить все переменные: procedure TScanForm.ForraCreate(Sender: TObject);

begin hDib := 0;

testDib := 0;

w :- 0;

h : 0;

= end;

Теперь напишем код для выбора сканера. В обработчике нажатия соответствующей кнопки напишем следующий код: procedure TScanForm.SetScanButtonClick(Sender: TObject);

begin TWAIN_SelectlmageSource(0) ;

end;

Код прост, как никогда. Вам достаточно вызвать TWAIN-функцию TWAiN_SeiectimageSource, и перед пользователем откроется стандартное окно выбора сканера. В обработчике нажатия кнопки Сканировать нужно написать следующий код: procedure TScanForm.ScanButtonClick(Sender: TObject);

begin Image1.Picture.Bitmap:=nil;

hdib := TWAIN_AcquireNative(0, 0);

n := TWAIN_GetNumDibs;

if n >= 1 then begin TestDib : TWAINjGetDib(0);

= Iraagel.Width:=TWAIN_DibWidth(TestDib);

Image!.Height:=TWAIN_DibHeight(TestDib) ;

CopyDiblntoImage(TestDib, Image1);

TWAIN_FreeNative(TestDib);

TestDib := 0;

end;

if n - 2 then begin TestDib := TWAIN_GetDib(1);

Imagel.Width:=TWAIN_DibWidth(TestDib);

Image1.Height:=TWAIN DibHeight(TestDib);

Железная мастерская CopyDiblntoImage(TestDib, Iraagel);

TWAIN_FreeNative(TestDib);

TestDib := 0;

end;

end;

В первой строке кода мы очищаем текущее содержимое компонента imagel. Для этого присваиваем imagel. picture.Bitmap значение n i l. Во второй строке вызывается TWAIN-функция TWAiN_AcquireNative. Этот метод отображает стандартное окно сканирования для вашего сканера. Пример моего окна для сканера Mustek 1200 ED вы можете увидеть на рис. 6.21. На этом выполнение нашего кода приостановится и продолжится только после окончания сканирования и закрытия появившегося окна. •=. Mustek 1200 ED Рис. 6.21. Стандартное окно сканирования для моего сканера— Mustek 1200 ED После окончания сканирования нам необходимо выяснить, сколько реально страниц было отсканировано. Для этого вызываем TWAIN-функцию TWAiN_GetNumDibs. Как раз она нам и вернет необходимую информацию. Хотя я в любом случае собираюсь забирать только одну картинку, я сделал небольшой логический финт, выясняя зависимость от количества отскани Глава рованных страниц. Если отсканирован хотя бы один документ, то я буду забирать нулевой. Если отсканировано ровно два, то я буду брать первый. В любом случае код получения изображения выглядит так: TestDib := TWAINGetDib (Номер изображения);

ImageI.Width:=TWAIN_DibWidth(TestDib) ;

Imagel.Height:=TWAIN_DibHeight(TestDib);

CopyDiblntoImage(TestDib, Imagel);

TWAIN_FreeNative(TestDib);

TestDib := 0;

В первой строке кода получаем нужное изображение с помощью функции TWAiNGetDib. Ей нужно указать номер отсканированной картинки, которую мы хотим получить. В результате функция возвращает картинку в формате битовой матрицы — hbitmap. Для дальнейшей работы нам надо преобразовать этот формат и скопировать в компонент imagel. Перед копированием нужно установить размеры компонента imagel равными размерам отсканированного изображения. Ширину битовой матрицы мы получаем с помощью функции TWAiNDibWidth. В качестве параметра указываем переменную TestDib, а в результате получаем число — ширину изображения.

ТОЧНО Так Же Я ПОЛучаю ВЫСОТУ С ПОМОЩЬЮ фуНКЦИИ TWAIN D i b H e i g h t.

Рис. 6. 2 2. Пример работы программы Железная мастерская Теперь ПРОИЗВОДИМ Само Копирование С ПОМОЩЬЮ ФУНКЦИИ CopyDiblntoImage.

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

Глава Полезное В последней главе книги собрана информация, которую я хотел бы вам рассказать, но она не подошла под тематику других глав. Именно поэтому у нее нет определенной темы, и я ее назвал просто "Полезное". Здесь собраны различные примеры, которые могут пригодиться вам при программировании в Windows. В первом же разделе мы научимся конвертировать данные из кодировки Windows в DOS и обратно. А также я дам пояснения по работе с десятичными и шестнадцатеричными числами. Пример, который мы напишем, будет полной практической иллюстрацией. Далее я покажу, как изменять параметры окна, которые недоступны в инспекторе объектов, но иногда очень необходимы. Этому вопросу будет посвящен второй раздел.

7.1. Конвертер Первый полезный пример, который я хотел бы с вами обсудить — перевод строк из Windows-кодировки в DOS и использование преобразований из шестнадцатеричной системы исчисления в десятичную и обратно. Хотя это достаточно просто, но почему-то начинающие пользователи почти всегда становятся в тупик и пишут свои собственные сложные процедуры для перевода, хотя все проблемы решаются с помощью пары строчек кода. Для иллюстрации я создал форму, которую вы можете увидеть на рис. 7.1. Попробуйте и вы создать нечто похожее. В обработчике события нажатия кнопки, предназначенной для перевода из Windows-кодировки в DOS, напишите следующий код: procedure TForml.CodeButtonClick(Sender: TObject) ;

var s:array [0..255] of char;

324 begin CharToOem(PChar(WindowsEdit.Text), s) DOSEdit.Text:=s;

end;

Глава Кодировка: WindowsEdit DOS- JDDSEdT Система исчисления:

-> j • • 1 - с се а [ E E t 0я ит м D C d i 10-я система |DECEdit2 •^ 16-я система Рис. 7. 1. Форма будущей программы Здесь мы объявляем одну переменную s типа массива символов. Эта переменная будет использоваться в качестве промежуточного хранилища преобразованных данных. Для преобразования используется WinAPl-функция CharToOem. У этой функции есть два параметра. П Строковая переменная, содержащая текст, который надо перекодировать в DOS-кодировку. • Переменная, которая будет содержать результат преобразования. Оба параметра должны иметь тип pchar, поэтому для первого из них мы используем преобразование, а в качестве второго параметра используется массив символов, который сам по себе имеет тип pchar, и нет необходимости приводить его к другому типу. После выполнения функции CharToOem, результат выполнения (переменная s) присваивается строке ввода DOSEdit. Зачем я использовал промежуточную переменную? Неужели нельзя было сразу указать в качестве второго параметра функции CharToOem значение pchar (DOSEdit. Text)? Можно, но нежелательно. Дело в том, что функция будет стабильно работать только тогда, когда параметр для хранения результата будет иметь тип PChar. Преобразование других форматов для хранения результата нежелательно использовать, потому что функция может вернуть ошибку или пустую строку. Именно поэтому я советую всегда использовать промежуточную переменную в виде массива символов, как в данном примере. Для обратного преобразования напишем следующий код: procedure TForml.CodeButtonlClick(Sender: TObject) ;

Полезное var s:array [0..255] of char;

begin OemToChar(PChar(DOSEdit.Text), s);

WindowsEdit.Text:=s;

end;

Здесь для преобразования используется функция OemToChar, которая производит преобразование из DOS-кодировки в кодировку Windows. У этой функции так же два параметра, которые выполняют те же задачи. • Строковая переменная, содержащая текст, который надо перекодировать в Windows-кодировку. П Переменная, которая будет содержать результат преобразования. Здесь я также рекомендую использовать промежуточную переменную, чтобы не было лишних проблем. Для перекодирования текста из шестнадцатеричной системы в десятичную напишем следующий код: procedure TForml.HexToDecButtonClick(Sender: TObject);

var index:Integer;

begin index:=StrToInt('$'+HEXEdit.Text);

DECEdit.Text:=IntToStr{index);

end;

Вы, наверно, знаете, что для использования шестнадцатеричных чисел в Delphi перед числом нужно указать знак $. Тот же знак нужно указывать и для строковых переменных, и потом перекодировать их с помощью уже знакомой функции strToint. По этому знаку функция определит, что у нас шестнадцатеричное число и корректно переведет его из строки в числовую переменную. В следующей строке кода полученное число просто переводится в строку, на этот раз с использованием функции intTostr, которая воспримет переменную index как десятичное число. Как же сделать так, чтобы переменная index воспринималась как шестнадцатеричное число, которое мы туда записали? Delphi автоматически производит преобразования, и вы можете прибавлять к переменной index шестнадцатеричные, восьмеричные или даже двоичные числа. Вся арифметика будет работать корректно. На самом деле все арифметические операции происходят в двоичном исчислении, даже если вы указываете числа в другом виде. Просто большинство процедур и функций Delphi и API Windows Глава отображают числа в десятичном виде. Если мы хотим увидеть число как шестнадцатеричное, ТО ДЛЯ Э О О НуЖНО ВОСПОЛЬЗОВаТЬСЯ функцией IntToHex. ТГ Функция IntToHex работает так же, как и intToStr. Разница в том, что вторая возвращает нам строковое представление числа в десятичном виде, a IntToHex — строку с числом в шестнадцатеричном виде. Код для перевода десятичного числа в шестнадцатеричное выглядит так: procedure TForml.DecToHexButtonClick(Sender: TObject);

var index:Integer;

begin index:=StrToInt(DECEdit2.Text);

HEXEdit2.Text:=IntToHex(index, 2);

end;

На рис. 7.2 вы можете увидеть пример работы программы. Обратите внимание, что при перекодировании текста английский текст не изменяется. Это связано с тем, что коды английских букв (латиницы) в обеих кодировках одинаковы и проблема возникает только со знаками национальных языков, например русскими буквами. 7' Forrni Кодировка: Windows Hello Привет <" DOS Helta ЦаЕуГе Система исчисления: 16-я система |С 10-я система 12 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);

begin SetwindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDQW);

end;

Фокус достаточно прост. Здесь вызывается WinAPI-функция setwindowLong, которая может изменять параметры окна. В инспекторе объектов нам доступно не все, а с помощью этой функции мы можем изменить любые свойства, какие есть. У функции имеется три параметра. П Указатель на окно, параметры которого надо изменить. Указано текущее окно, т. е. наше дочернее окошко. О Что мы хотим изменить. Здесь можно указать несколько значений (их вы можете увидеть в файле справки по WinAPI, если запустите поиск слова SetwindowLong. Но реально вам могут пригодиться только два из доступных параметров: • GWL_STYLE — изменить стандартный стиль окна. Стандартные стили вы можете увидеть в файле справки по WinAPI, если запустите поиск слова createWindow. Такие стили начинаются с префикса ws_. Эти изменения можно сделать и в инспекторе объектов с помощью свойств формы;

• GWL_EXSTYLE — изменить расширенный стиль окна. Здесь находятся расширенные стили, которых нет в инспекторе объектов. Расширенные стили вы можете увидеть в файле справки по WinAPI, если запустите поиск слова CreatewindowEx. Такие стили начинаются с префикса WS_EX_. П Новое значение изменяемого параметра.

GWL_EXSTYLE.

Глава В нашем примере мы указали в качестве второго параметра значение Это значит, что мы хотим изменить расширенный стиль окна. В качестве третьего параметра вызывается функция GetwindowLong. Она возвращает существующие параметры окна. Данная функция имеет два параметра: П Указатель на окно. О Параметр, который мы хотим получить. Указан GWL_EXSTYLE, чтобы получить установленные расширенные стили окна. В результате в качестве третьего параметра мы получаем текущие значения расширенного стиля и добавляем к нему стиль WS_EX_APPWINDOW, ЧТО заставит окно появиться на панели задач. Вот и все. Такой небольшой трюк дает нам достаточно сильные возможности в управлении окнами нашей программы. На рис. 7.3 вы можете увидеть пример работы моей программы. dD I h \ r e t \ e ?Po c$ pi j D y o kS - o n 1 WB os Xc d g i.

in el /sr enMov Показагыжно Рис. 7.3. Главное и дочернее окно на панели задач На компакт-диске в директории \Примеры\Глава 7\Chi Id Window вы можете увидеть пример этой программы и цветную версию рисунка.

7.3. Создание ярлыков Сейчас мы напишем пример программы, которая будет размещать на рабочем столе и в меню Пуск/Программы свой ярлык. Вообще-то этот пример можно было бы описать во второй или в гл. 3, где описывались простые шутки, но информация, которая необходима вам для написания программы, Полезное была дана в гл. 6. Именно поэтому мне приходится описывать пример только сейчас. В программе будем размещать только по одному ярлыку в меню Пуск и на рабочем столе. Вы же можете немного модифицировать пример, и после этого ваша программа сможет засыпать хоть весь рабочий стол разными яркими ярлыками. Итак, создаем новый проект в Delphi. Сразу же перейдем в раздел uses и добавим туда следующие модули: shiobj, ActiveX и comobj. Теперь разместим на форме три кнопки с надписями:

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

П Создать ярлык на рабочем столе;

П Засыпать экран.

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

7 Программа создания ярлыков Созаэть ярлык в меню "Программы" Создать яршк на рабочем столе Засыпать экран Рис. 7.4. Пример работы программы В обработчике onclick первой кнопки Создать ярлык в меню "Программы" пишем следующий код (листинг 7.1).

procedure TForml.ButtonlClick(Sender: TObject);

var WorkTable:String;

P:PItemIDList;

C:array [0..1000] of char;

begin if SHGetSpecialFolderLocation (Handle, CSIDL_PROGRAMS,p)=NOERROR then begin SHGetPathFromlDList(P,C);

330 WorkTable:=StrPas(C)+'\My Group';

end;

if not DirectoryExists(WorkTable) then MkDir(WorkTable);

Глава if FileExists(WorkTable+'\'+ExtractFileName(Application.ExeName)) then DeleteFile(WorkTable+'\'+ExtractFileName(Application.ExeName));

CreateShotCut(Application.ExeName, WorkTable + '\'+ ExtractFileNarne (Application.ExeName), ' ') ;

end;

В самом начале определяется место расположения папки Программы, которая отвечает за содержание одноименного меню кнопки Пуск. Да, это самая настоящая папка на диске, которая в Windows 9x по умолчанию располагалась по следующему пути: C:\WINDOWS\DiaBHoe меню\Программы. В Windows 2000/XP расположение более сложное, и тут уже надо Программы искать в папке Documents and Settings. Все, что находится в этой папке (файлы ярлыков, программы и любые другие файлы), отображается в главном меню. Итак, чтобы разместить в меню Программы свой объект, мы можем просто скопировать нужный файл в найденную папку. Копировать сами исполняемые файлы в папку Программы неэтично. Там принято создавать лишь файлы ярлыков, которые занимают очень мало места, потому что только ссылаются на реальную программу. Кстати, когда мы определили путь к папке, содержащей объекты меню Программы, мы добавили к этому пути \Му Group. Таким образом мы переместились в подменю My Group меню Программы. Но прежде чем туда переместиться, необходимо выяснить, существует ли такой подкаталог? Для этого проверяем: если нужная директория не существует, то ее нужно создать с помощью функции MkDir:

if not DirectoryExists(WorkTable} MkDir(WorkTable);

then Следующим этапом проверяем, существует ли ярлык для программы. Если да, то удаляем файл ярлыка, потому что в нем могут находиться устаревшие данные, и лучше пересоздать все заново. Само создание происходит в последней строке, с помощью вызова процедуры CreateShotCut. У этой процедуры имеется три параметра. О Файл, запускаемый ярлыком.

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

Если вы сейчас попытаетесь запустить программу, то Delphi не сможет откомпилировать код, потому что не знает о существовании процедуры createShotCut. Ее нужно еще написать. Для этого в разделе p r i v a t e опишите процедуру CreateShotCut следующим образом: private { Private declarations } procedure CreateShotCut(SourceFile, ShortCutName, SourceParams: String);

Теперь нажимаем заветную комбинацию клавиш ++ и получаем заготовку описанной процедуры. В нее нужно вставить следующее (листинг 7.2). Листинг 7.2. Процедура создании ярлыка procedure TForml.CreateShotCut(SourceFile, ShortCutName, SourceParams: String);

var IUnk: IUnknown;

ShellLink: IShellLink;

ShellFile: IPersistFile;

tmpShortCutName: string;

WideStr: WideString;

i: Integer;

begin IUnk := CreateComObject(CLSID_ShellLink);

ShellLink := IUnk as IShellLink;

ShellFile := IUnk as IPersistFile;

ShellLink.SetPath(PChar(SourceFile));

ShellLink.SetArguments(PChar(SourceParams));

ShellLink.SetWorkingDirectory(PChar{ExtractFilePath(SourceFile)));

ShortCutName := ChangeFileExt(ShortCutName,'.Ink");

if fileexists(ShortCutName) then begin ShortCutName := copy(ShortCutName,1,length(ShortCutName)-4);

1 2 Зак 332 i : 1;

= repeat tmpShortCutName := ShortCutName +'(' + inttostr(i)+ ').lnk';

inc(i);

until not fileexists(tmpShortCutName);

WideStr := tmpShortCutName;

end else WideStr : ShortCutName;

= ShellFile.SavetPWChar(WideStr),False);

end;

Глава В самом начале мы инициализируем переменную iunk как СОМ-объект с помощью API-функции createcomobject. Затем инициализируются еще две переменные sheilLink (ссылка) и s h e i l F i i e (файл). После этого вызываются следующие методы объекта ссылки SheilLink: • Setpath — устанавливает полный путь к программе;

П setArguments — устанавливает параметры, которые надо передать программе;

П setworkingDirectory — здесь указывается рабочая директория. Помимо этого у объекта-ссылки есть еще методы: П Getoescription — указывает в ярлыке описание для программы;

П setshowcmd — указывает режим отображения окна. Здесь можно использовать режимы, которые мы указывали в API-функции Showwindow, например SW_HIDE (запускать невидимо), SWMAXIMIZE (запускать с окном развернутым на весь экран), SW_MINIMIZE (минимизировать окно после старта) и так далее. После указания необходимых параметров в переменной ShortCutName сохраняется имя ярлыка плюс расширение Ink. Это имя будет использоваться при создании самого файла ссылки. Далее проверяется, если такой ярлык уже существует, то запускается цикл, в котором к имени ссылки добавляется цифра. Таким образом находится новое имя ярлыка с цифрой, которого еще не существует в указанном месте. В самой последней строке созданная ссылка сохраняется в файле ярлыка. Как видите, процедура универсальна и готова для заполнения экрана или меню Программы своими копиями. Вам нужно только изменить уже имеющийся обработчик события нажатия кнопки, что мы и сделаем чуть позже.

Полезное Сейчас мы создадим обработчик события нажатия второй кнопки, и я покажу, как создать ярлык на рабочем столе (листинг 7.3). Листинг 7.3.Размещение ярлыка не рабочем столе v procedure TForml.Button2Click(Sender: TObject);

var WorkTable:String;

P:PItemIDList;

C:array [0..1000] of char;

begin if SHGetSpecialFolderLocation(Handle,CSIDL_DESKTOP,p)=NOERROR then begin SHGetPathFromIDList(P,C) ;

WorkTable:=StrPas(C) ;

end;

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

CreateShotCut(Application.ExeName, WorkTable + 'V + ExtractFileName(Application.ExeName), '');

end;

Этот код похож на тот, что мы писали при создании ярлыка в меню Программы. Единственная разница в том, что здесь с помощью функции SHGetSpeciaiFolderLocation мы узнаем расположение папки для ярлыков и программ рабочего стола (второй параметр равен CSIDL_DESKTOP). Вот теперь посмотрим на код заполнения экрана ярлыками. Он выглядит следующим образом (листинг 7.4).

var WorkTable:String;

P:PItemlDList;

C:array [0..1000] of char;

i:Integer;

begin if SHGetSpeciaiFolderLocation (Handle, CSIDLDESKTOP,p)=NOERROR then 334 begin SHGetPathFromlDList(P,C);

WorkTable:=StrPas(C);

end;

for i:=0 to 20 do CreateShotCut(Application.ExeName, WorkTable + ' V ExtractFileName(Application.ExeName), ' ' ) ;

end;

Глава Рис. 7. 5. В результате работы программы рабочий стол превращается в свалку Здесь нет проверки на существование ярлыка. Если он уже существует (а он с некоторого момента будет на столе не один), то наша процедура CreateShotCut изменит имя и создаст еще один ярлык. Вызов процедуры создания ярлыка помещен в цикл так, чтобы процедура создавала 20 ярлыков на рабочем столе. На рис. 7.5 вы можете увидеть мой рабочий стол после выполнения этого кода. На компакт-диске в директории \Примеры\Глава 7\Ярлык вы можете увидеть пример этой программы и цветные версии рисунков.

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

• Упорядочить влево;

П Упорядочить по верху.

В обработчике нажатия первой кнопки напишем следующий код: procedure TForml.ButtonlClick(Sender: TObject);

var DesktopHandle:Integer;

begin 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.

В качестве примера отсылается сообщение с двумя параметрами: О LVM_ARRANGE — указывает на необходимость отсортировать значки;

П LVA_ALIGNLEFT — упорядочить значки по левому краю. Если второй из этих параметров заменить на LVAALIGNTOP, TO значки будут выровнены по верхнему краю окна. Давайте создадим на нашей форме кнопку Удалить все элементы. В обработчике события onclick этой кнопки напишем следующий код: procedure TForml.Button3Click(Sender: TObject);

var DesktopHandle:Integer;

begin DesktopHandle := FindWindow('ProgMan1, nil);

336 DesktopHandle : GetWindow(DesktopHandle, GWJ3ILD) ;

= DesktopHandle : = GetWindow(DesktopHandle, GW_CHILD);

SendMessage(DesktopHandle, LVM_DELETEALLITEMS, 0, 0 );

end;

Глава Код похож на тот, что мы уже использовали. Только здесь мы посылаем команду LVM_DELETEALLITEMS, которая заставляет удалить все элементы. Попробуйте выполнить эту команду, и весь рабочий стол станет девственно чистым, как будто на нем ничего никогда не было. Ну а теперь самое интересное — перемещение ярлыков по экрану. Для реализации этого эффекта поместим на форму еще одну кнопку с заголовком Переместить. В обработчике события Onclick этой кнопки вставим следующий код: procedure TForml.Button4Click(Sender: TObject);

var DesktopHandle:Integer;

begin 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, которой в данном случае передается два параметра: х и Y — координаты ярлыка. И чтобы окончательно разработать эту тему, поместим на форму еще одну кнопку — Анимация. Нажимая эту кнопку, мы будем постепенно двигать нулевой значок по экрану вниз:

var DesktopHandle:Integer;

i:Integer;

begin DesktopHandle := FindWindow{'ProgMan', nil);

Полезное 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);

var old: longint;

hwin:HWND;

begin hwin:=FindWindow(nil, 'Документ1 - Microsoft Word');

if hwin<>0 then begin old:=GetWindowLongA(hwin,GWL_EX.STYLE) ;

SetWindowLongA(hwin,GWL_EXSTYLE,old or $80000);

Глава SetLayeredWindowAttributes(hwin, 0, 150, $2);

end;

end;

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

П заголовок окна. В качестве класса указано значение n i l. Это означает, что нужно найти окно по второму параметру (по заголовку), а класс окна может быть любой. После этого проверяем: если значение, которое нам вернула функция Findwindow, не равно нулю, значит, функция нашла окно, иначе такое окно не запущено или вы неправильно ввели заголовок окна. Если окно найдено, то выполняются следующие три строчки: old:=GetWindowLongA(hwin,GWL_EXSTYLE);

SetWindowLongA(hwin,GWL_EXSTYLE,old or $80000);

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

Весь этот код выполняется с найденным окном. В первой строке мы узнаем текущие параметры окна с помощью уже знакомой функции GetwindowLongA. Во второй строке устанавливаем новые параметры, добавив к старому стилю шестнадцатеричное значение $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';

Полезное Это может понадобиться, если вы используете Delphi 5, в котором еще нет описания этой новой функции, потому что в старой Windows такой возможности не было. На компакт-диске в директории \Примеры\Глава 7\Transparency вы можете увидеть пример этой программы и цветные рисунки этого раздела.

7.6. Написание plug-in модулей В последнее время в большинство программ стали встраивать возможность работы с дополнительными модулями (plug-ins). Это не просто дань моде, это возможность наделить свои программы дополнительными возможностями за счет независимых разработчиков. Один программист или даже целая компания не могут делать все самостоятельно. Именно поэтому они предлагают независимым разработчикам возможность улучшения их продукта собственными силами. В течение всего раздела я буду называть эти модули встраиваемыми, дополнительными или подключаемыми, а понимать буду одно и то же — plug-in модуль. Модули plug-ins чаще всего выполняют в виде динамических библиотек (dll), которые могут подключаться к основной программе. Ваш проект при загрузке будет проверять определенное место в поиске таких dllфайлов. Если таковые будут найдены, то в определенном меню появятся команды, использующие функции модуля.

7.6.1. Создание программы для работы с plug-in Давайте создадим собственный plug-in модуль и тестовую программу для него, чтобы сделать все на практике своими руками. Начнем мы с написания основной программы. Для этого создайте новый проект простого приложения (Application). На главной форме мы разместим компоненты MainMenu и Memoi. В меню мы создадим два главных пункта: Файл и Plug-ins. В первом пункте можете создать подменю Выход, а второй нужно оставить пустым, потому что он будет заполняться функциями из дополнительного модуля. Компонент Memoi можно растянуть по всей форме, чтобы пример выглядел более солидно. Мой вариант программы вы можете увидеть на рис. 7.9. В самом модуле в разделе type нужно объявить следующий объект: type TIPluginDemo = class public function GetApplication: TApplication;

virtual;

stdcall;

342 procedure AddMenuItem(MenuItemCapt: String;

Proc: TNotifyEvent);

virtual;

stdcall;

procedure Addltem(ltem: String);

virtual;

stdcall, end;

7 Тестирование Plug-in модуля Глава Рис. 7.9. форма с меню и Memo Это объект, через который наша программа будет взаимодействовать с встраиваемым модулем. У этого объекта есть три метода. • GetAppiication — с помощью данного метода модуль сможет получать ссылку на объект приложения главной программы. Хотя в своем примере я это использовать не буду, но все же решил показать, как передавать в дополнительный модуль ссылку на главное приложение. Эта возможность может понадобиться для модуля plug-ins, если он захочет создать какие-либо дополнительные окна, которые должны будут зависеть от главного приложения;

• AddMenuitem — этот метод в главном окне будет создавать пункт меню, предназначенный для использования возможностей встраиваемого модуля;

О Additem — через этот метод встраиваемый модуль будет выводить информацию в главное окно, а точнее сказать, в компонент Memol. Теперь посмотрим на реализацию всех этих методов в нашем приложении. Первым на очереди GetAppiication:

function TIPluginDemo.GetAppiication: TApplication;

begin Result:=Application;

end;

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

Полезное Следующий метод — AddMenuItem: procedure TIPluginDemo.AddMenuItem(MenuItemCapt: String;

Proc: TNotifyEvent);

var Newltem: TMenuItem;

begin Newltem:=TMenuItern.Create(PluginDemoForm);

Newltem.Caption:=MenuItemCapt;

Newltem.OnClick:=Proc;

PluginDemoForm.Utilitiesl.Add(Newltem);

end;

Здесь мы создаем подпункт в меню Plug-ins главного окна. В качестве заголовка пункта меню используется первый переданный параметр. В качестве обработчика события Onclick для созданного пункта указывается процедура, переданная во втором параметре. Таким образом, дочерний модуль создает в главном окне пункт меню и назначает ему свой обработчик события.

Ну И ПОСЛеДНИЙ МеТОД — Addltem: procedure TIPluginDemo.AddItem(Item: String);

begin PluginDemoForm.Memol.Lines.Add(Item);

end;

Здесь просто выводится информация, переданная из модуля в компонент Memoi. Эту функцию наш метод может использовать для вывода на экран результатов каких-то расчетов, которые может выполнять дополнительный модуль. Напоминаю, что все три функции и весь класс вообще предназначены для обеспечения взаимодействия встраиваемого модуля с главной программой. Теперь после ключевого слова implementation объявим следующее:

type TInitPlugin = procedure(PlugClass: TIPluginDemo);

const PluglnitProc: PChar = 'InitPlugin';

В разделе type объявлена переменная TInitPlugin как процедура. Таким образом описывается название и параметры процедуры из модуля plug-in. Она будет вызываться из этой программы, а встраиваемый модуль будет инициализировать свои данные, например, добавлять необходимые ему пункты меню в главное окно.

Глава В разделе const объявляется строковая константа со значением initpiugin. Это имя процедуры инициализации (тип этой процедуры мы только что описали в разделе type) из встраиваемого модуля. Самое последнее, что нам нужно сделать, прежде чем мы приступим к программированию, это объявить несколько переменных в разделе private:

private { Private declarations } PInterface: TIPluginDemo;

ilrTList;

Первая переменная будет инициализировать модуль и хранить ссылку на него. Эта переменная должна быть доступной на протяжении всего времени выполнения программы. Вторая переменная — это список, в который мы будем вносить все указатели на загруженные модули PInterface, чтобы сохранять все ссылки целыми и невредимыми. Для работы с дополнительными модулями у нас все готово. Теперь во время запуска программы мы должны запустить поиск в определенной директории на наличие dll-файлов. Для этого в обработчике события onCreate напишем следующий код: procedure TPluginDemoForm.FormCreate(Sender: TObject};

var Found, Attr: Integer;

SearchRec: TSearchRec;

PluginHandle: THandle;

InitPlugin: TInitPlugin;

begin il:=TList.Create;

PlugDir : ExtractFilePath (Application. ExeName) + 'PLUGINSV;

= Attr : faReadOnly or faHidden or faSysFile or faArchive;

= Found : FindFirst(PlugDir+p*.DLL', Attr, SearchRec);

= while Found = 0 do begin try PluginHandle:=LoadLibrary(PChar(PlugDir+SearchRec.Name));

@lnitPlugin:=GetProcAddress(PluginHandle, PluglnitProc);

if Longint(@InitPlugin)<>0 then begin try PInterface:^TIPluginDemo.Create;

InitPlugin(PInterface);

Полезное il.Add(Pinterface);

except raise Exception.Create('Ошибка загрузки ! ' ) ;

end end else FreeLibrary(PluginHandle);

except raise Exception.Create('Ошибка '+SearchRec.Name);

end;

Found := FindNext(SearchRec);

end;

FindClose(SearchRec);

end;

В самом начале инициализируется список i l. Затем заносим в переменную plugDir директорию, в которой нужно будет искать дополнительные модули. После этих приготовлений запускается поиск файлов в указанной директории с помощью функции FindFirst. Если файл найден, то загружаем найденную библиотеку В память С П М Щ Ю функции LoadLibrary. Следующим ОО Ь этапом ищем в загруженной библиотеке процедуру инициализации с помощью функции GetProcAddress. У этой функции имеется два параметра: • указатель на загруженную библиотеку;

• второй параметр — имя процедуры, которую надо найти. Здесь мы указываем КОНСТаНТу GetProcAddress, В К Т р Й Х Э И С И Я ' InitPlugin 1. О ОО р Н Т Я М Если результат выполнения функции GetProcAddress не равен нулю, значит процедура инициализации найдена, и ее надо выполнить. Для этого сначала создаем объект типа TiPiuginDemo — это интерфейс, который мы создали для взаимодействия дополнительного модуля с главной программой. После этого вызываем процедуру InitPlugin из библиотеки, передавая ей указатель на созданный для взаимодействия интерфейс. Тут же добавляем переменную Pinterface в список il для последующего использования. Если функция инициализации не найдена, то выгружаем библиотеку, потому что это может быть любой dll-файл, не являющийся plug-in-модулем для нашей программы. Делается это с помощью API-функции FreeLibrary. При событии onDestroy главной формы мы должны уничтожить список: procedure TPluginDemoForm.FormDestroy(Sender: TObject);

begin il.Free;

end;

Глава Это основное, что вам необходимо сделать для создания главного приложения, чтобы оно могло работать с plug-in модулями. Если вам нужны будут более сложные взаимодействия между главной программой и дополнительным модулем, то придется расширить возможности объекта TiPiuginDemo.

7.6.2. Создание plug-in модуля Основная программа готова. Вот теперь примемся за написание plug-in модуля, который будет подключаться к ней. Для этого нужно создать новый проект dll-файла. Для этого в Delphi откройте в меню File подменю New, а затем выберите пункт Other. В появившемся окне создания нового проекта выберите элемент DLL Wizard и нажмите кнопку ОК. 7 N w Items e IntraWeb j WebServicei | Business ' W b n p j Web D c m ns eSa ou et N w ActiveX I M lRe ) Pu i s e o 1 F i s 1 Dialogs I Piojects e u rr t lg Dm n o m CX Fm Cmoet C no C nr l P n l C nr l P r e L r e o pnn o se o to a e o to a l a l A pi ai n A pi ai n M de p lc to p lc to ou l D t Mde a ou a l Form Frame Pacfcage Г,-j.

Г i -'-с.:

Г Cancel Help Рис. 7.10. Создание проекта динамической библиотеки Код созданного модуля приведите к следующему виду:

library PluginsDemo;

uses Dialogs, SysUtils, Unitl in 'Unitl.pas' (Forral);

procedure initPlugin(PlugClass: TPluginlnterface) begin Полезное Demolnterfасе:^PlugClass;

Forml:=TForml.Create(nil);

PlugClass.AddMenuItemf'Показать Plug-in',Forml.ShowMe);

PlugClass.AddMenuItem('Простой вызов', Forml.ButtonlClick);

PlugClass.AddMenuItem('Добавить пункт',Forml.Button2Click);

end;

exports InitPlugin;

begin end.

Самое основное здесь — это процедура m i t p i u g i n. Это как раз та процедура, которая будет вызываться для инициализации дополнительного модуля. В первой строке сохраняется указатель на интерфейс взаимодействия между модулями в переменной Demointerface. Данную переменную мы пока еще не описали, но сделаем это в ближайшее время. В следующей строке инициализируется форма Formi, которую мы также сейчас создадим. После этого в меню основной программы создаются три пункта меню с помощью вызова метода AddMenuitem объекта PlugClass. В эти пункты передаются их названия и функции-обработчики, которые тоже еще предстоит написать. Помимо того, что мы создали процедуру, ее нужно объявить как экспортируемую, чтобы внешние программы могли ее увидеть. Для этого процедура должна быть описана в разделе export. Это нужно сделать обязательно!!! Теперь добавим в нашу библиотеку новую форму. Для этого нужно в меню File открыть подменю New, и затем выбрать пункт Form. На новой форме разместим три кнопки: • Показать диалоговое окно;

• Добавить элемент;

• Спрятать окно. Внешний вид формы вы можете увидеть на рис. 7.11. Помимо кнопок на моей форме расположен еще и рисунок, но он использован только для украшения. Теперь опишем внешний вид интерфейса, с помощью которого происходит взаимодействие между plug-in модулем и главной программой. Для этого в разделе type напишите следующее: TPluginlnterface = class public Глава function GetApplication: TApplication;

virtual;

stdcall;

abstract;

procedure AddMenuItem(MenuItemCapt: string;

Proc: TNotifyEvent);

virtual;

stdcall;

abstract;

stdcall;

abstract;

procedure Addltem(ltem: String);

virtual;

end;

• окно plug-in QfalfSc] Показать диалогов се окно Добавить э леменг Спрятать окно Рис. 7. 1 1. Форма дополнительного модуля, которая будет вызываться из главной программы Это объявление похоже на то, что мы писали в основной программе. Единственная разница заключается в том, что после каждого имени метода стоит слово abstract. Это слово указывает на то, что метод не будет описан в этом модуле и является абстрактным. Это необходимо, потому что реализация всего объекта находится в основной программе, а здесь мы делаем только описание, чтобы можно было пользоваться возможностями интерфейса. В разделе var нужно объявить переменную Demointerface, в которой будет сохраняться указатель на объект взаимодействия между модулями. Эту переменную мы уже использовали в процедуре m i t p i u g i n, а здесь добавляем ее описание:

Forml: TForml;

Demointerface: TPluginlnterface;

Теперь создадим обработчики события Onclick для всех кнопок нашей формы. Для кнопки Показать диалоговое окно пишем следующий код: procedure TForml-ButtonlClick(Sender: TObject);

begin ShowMessage('Привет!');

end;

Здесь мы всего лишь отображаем стандартное окно сообщений с надписью "Привет!".

Полезное Для кнопки Добавить элемент вставим следующий код: procedure TForml.Button2Click(Sender: TObject);

begin 1 DemoInterface.Addltem('Новый элемент );

end;

Здесь мы используем метод Additem интерфейса для добавления из нашего модуля новой строки в компонент Memo главной программы. В обработчике события нажатия кнопки Спрятать окно напишете: procedure TForml.Button3Click(Sender;

TObject);

begin Hide;

end;

Обратите внимание, что вызывается метод Hide, а не close. С помощью этого метода окно закрывается, но не уничтожается. Если бы мы написали close, то после первого закрытия окна оно уничтожилось бы, и в следующий раз мы уже не смогли его отобразить из главного окна. При первой же попытке появилась бы ошибка доступа к памяти. Помимо этого, в разделе public нужно описать еще два метода, которые мы используем: public procedure ShowMeCSender: TObject);

procedure HideMe(Sender: TObject);

Реализация этих процедур будет выглядеть следующим образом: procedure TForml.ShowMe(Sender: TObject);

begin Show;

end;

procedure TForml.HideMe(Sender: TObject);

begin hide();

end;

Скомпилированный dll-файл нужно поместить в поддиректорию Plugins основной программы. После этого, запустив основную программу и выбрав меню Plug-ins, вы должны увидеть пункты меню с возможностями, предоставляемыми дополнительным модулем (рис. 7.12). Попробуйте поработать с этой программой, вызывая различные пункты меню. Вы должны понять, как работает основная программа, и как она взаимодействует с plug-in модулем.

/• Тестирование Plug-in модуля un Файл Pl g-i s Memol ••HI Показать Plug-in Простей вызов Добавить пункт Глава Рис. 7.12. Меню главной программы с возможностями, предоставляемыми дополнительным модулем На компакт-диске в директории \Примеры\Глава 7\PIug-ins вы можете увидеть пример этой программы.

Список литературы и ресурсы Интернета Рубрика "Кодинг" журнала "Хакер" всегда содержит множество интересных примеров. http://www.delphi-jedi.org/ — большой сайт, содержащий множество заголовочных файлов для Delphi и бесплатных программ. http://www.delphibest.narod.ru/ — сайт иногда пропадает, но если вам удастся на него попасть, то сможете найти очень интересные статьи. http://www.iatp.kharkov.ua/sites/program/program/titul.htm — лучший сайт для системного программиста.

Описаниекомпакт-диска Папки \Headers \Source Описание Все необходимые заголовочные файлы, которые нужно будет подключать к Delphi для компиляции некоторых примеров Исходные коды своих простых программ, чтобы вы могли ознакомиться с реальными приложениями. Их немного, но посмотреть стоит Инсталляционный пакет программы Adobe Acrobat Reader v5.0. Если у вас нет этой программы, то вы должны ее установить, чтобы можно было читать документацию, расположенную на диске Полная копия сайта автора, а это 100 Мбайт документации, полезной информации, исходных кодов и компонентов. Здесь же вы можете найти мою книгу "Библия Delphi" в электронном виде. В ней вы найдете все необходимые для понимания материала основы, и если вы еще ни разу не видели Delphi, то после прочтения этой книги вы сможете понять все описанное не хуже хакера Дополнительная документация, которая может понадобиться для понимания некоторых глав В этой директории вы найдете большую коллекцию значков, которые вы можете использовать в своих программах. Эту коллекцию я подбирал достаточно долго, и все значки хорошего качества Дополнительные компоненты, которые будут использоваться в примерах книги Программы, которые пригодятся в программировании. Среди них Header Convert — программа, которая конвертирует заголовочные файлы с языка С на Delphi, и ASPack — программа сжатия запускных файлов \Sofl Wr-online Документация \Иконки компоненты \Программы www.softline.ru 119991 г. Москва, ул. Губкина, д. 8 тел.: (095) 232-0023 e-mail: info@softline.ru Все для разработки ПО Почему опытные разработчики приобретают нужные для их работы программы в компании SoftLlne?

it Их привлекают низкие цены, т.к. компания работает напрямую с вендорами. Ш Их привлекает имеющаяся возможность получения демо-версий и обновлений. Ш В выборе программ им помогают каталог SoftLine-direct и сайт www,softline.ru. Ш Большая часть ассортимента SoftLine для разработчиков недоступна в других компаниях. Microsoft Borland 'Sun.

Какие этапы разработки охватывает программное обеспечение, поставляемое SoftLine?

Si Проектирование программ (Microsoft, CA/Platinum, Rational, SilverRun, Quest). Ш Совместная работа (Centura, Merant, Microsoft). • Управление проектами (PlanisWare, PlanView, Microsoft). Ш Написание кода (среды разработки Allaire, Borland, IBM, Microsoft, компоненты Allround Automation, ComponentOne, Crystal Decisions, Janus, Sitraka, Stingray), Я Оптимизаций кода (Compaq, Fuji, Intel, MainSoft, Sun, Sybase, Tenberry). IS Отладка и тестирование (NuMega, Intuitive Systems, Segue). И Упаковка приложений (InstallShield, Wise Solutions). M Развертывание и поддержка (Remedy, Royal Blue, CA, Network Associates). It Обучение пользователей (Adobe, Allen Communications, click2learn.com, eHelp, Macromedia, Quest, Ulead).

COMPAQ. mc mdar ea oi SoftLine — это свобода выбора Обратившись в SoftLine, аы в кратчайшие сроки решите проблемы с программным обеспечением. Получив консультацию менеджеров, часть из которых знакома с работой разработчиков не понаслышке (на собственном опыте), вы подберете все необходимое для работы в вашей области - от интегрированной среды RAD - до готовых компонент. При этом мы оставим выбор идеологии разработки за вами - например, для регулярного получения информации о продуктах и технологиях, вы сможете подписаться на Microsoft Developer Network, Sun Developer Essentials или на нашу собственную рассылку компакт-дисков — SoftLine Support Subscription, предоставляющую обновлений и демо-версии всех ведущих производителей. Компания SoftLine также поможет вам е выборе обучающих курсов.

сitг IaS а r " *8 5GA InstallShield. Component • SYBASE" компьютерных книг Более 1900 наименований книг винтернет-магазине www.computerbook.ru «йл Древка ВЕСЬ МИР -MSHnre Epe CO It nt xoi Oe II li избранное Свовис Справке Остановить Обновить Лонюй \ Мв»и Жаа ' днл 2} П ча от Печать Глышш®, f^nepenoft j йдрк^ | й hup Www* compulefbo;

* ru поиск > Кок купить книгу > Прайс-лист > Новинки > Готовятся к печати ^ Расширенный п о и с к я ТОР 20 V Э л е к т р о н н ы е книги * обзоры » Главная с т р а н и ц а ! расширенный п о и с к - - > > Главная страница Специализированный интернет-магазин компьютерной литературы ШЯШПКИ Протоколы TCP/IP Практическое руководство TCP/IP На данный момент магазин предлагает: • количество книг: 1965 • количество электронных книг 11 • количество новинок "ЕХБ-Петевбург" i ившем магазине (Бобруйская ул., дон 4) до 31 дек>Еря2003 годе любой пакупвтип. может: * купил, книгу издатыастьа «БХВ-Петербург» со скидкой 10% • принять у ч и т е в лотерее и посеппъ р а ста о дажу компьютерной литер атурь i С март»месяц»с вузы С агат-Петер Бур г а проводится передвижная выставка «Весь мир компьютерных книг». В ней принимают участие 11 Система программирования Delphi ВЕСЬМИР компьютерныхкниг б л е2 0 0 0 ое книг по компьютерной технике, программному обеспечению и электронике всех русскоязычных издательств УВАЖАЕМЫЕ ЧИТАТЕЛИ!

ДЛЯ ВАС РАБОТАЕТ ОТДЕЛ "КНИГА-ПОЧТОЙ" ЗАКАЗЫ ПРИНИМАЮТСЯ ® а Н Н по телефону: (812) 541-8551 по факсу: (812) 541-8461 по почте: 199397, Санкт-Петербург, а/я 194 по e-mail: trade@bhv.spb.su По Вашему запросу мы высылаем по электронной почте или на дискете прайс-лист и условия заказа ЖДЕМ ВАШИХ ЗАЯВОК Microsoft Outloo БХВ-Петербург: www.bhv.ru (812) 251-42-44 Интернет-магазин: www.computerbook.ru Оптовые поставки: trade@bhv.spb.su Книги издательства "БХВ-Петербург" в продаже:

Серия "В подлиннике" Андреев А. и др. MS Windows XP: Home Edition и Professional Андреев А. и др. Windows 2000 Professional. Русская версия Андреев А. и др. Microsoft Windows 2000 Server. Русская версия Андреев А. и др. Новые технологии Windows 2000 Андреев А. и др. Microsoft Windows 2000 Server и Professional. Русские версии Ахаян P. Macromedia ColdFusion Браун М. HTML 3.2 (с компакт-диском) Вебер Дж. Технология Java (с компакт-диском) Власенко С. Компакт-диск с примерами к книгам серии "В подлиннике";

"MS Office XP в целом", "MS Access 2002", "MS Word 2002", "MS Excel 2002" Власенко С. Microsoft Word 2002 Гофман В., Хомоненко A. Delphi 6 Долженков В. MS Excel 2002 Закер К. Компьютерные сети. Модернизация и поиск неисправностей Колесниченко О., Шишигин И. Аппаратные средства PC, 4-е издание Мамаев Е. MS SQL Server 2000 Матросов А, и др, HTML 4.0 Михеева В., Харитонова И. Microsoft Access 2000 Михеева В., Харитонова И. Microsoft Access 2002 Новиков Ф., Яценко A. Microsoft Office 2000 в целом Новиков Ф., Яценко A. Microsoft Office XP в целом Ноутон П., Шилдт Г. Java 2 Пауэлл Т. Web-дизайн Персон P. Word 97 Питц М., Кирк Ч. XML. Пономаренко С. Adobe Illustrator 9.0 Пономаренко С. Adobe Photoshop 6.0 Пономаренко С. CorelDRAW 9 Пономаренко С. Macromedia FreeHand 9 Русеев С. WAP: технология и приложения Секунов Н. Обработка звука на PC (с дискетой) Сузи P. Python (с компакт-диском) Тайц А. М., Тайц A. A. Adobe PageMaker 7.0 Тайц А. М,, Тайц A. A. Adobe InDesign Тайц А. М., Тайц A. A. CorelDRAW 9: все программы пакета Тайц А. М., Тайц A. A. CorelDRAW 10: все программы пакета Тихомиров Ю. Microsoft SQL Server 7.0 848 с. 700 с. 960 с, 576 с. 1056 с. 672 с. 1040 с. 1104 с. 32 с.

992 с 1152 с. 1072 с 1008 с. 1024 с. 1280 с. 672 с. 1088 с. 1040 с. 728 с. 928 с. 1072 с. 1024 с. 1120 с. 736 с. 608 с. 832 с. 576 с. 432 с. 432 с. 1248 с. 768 с. 784 с. 704 с. 1136 с. 1136 с. 720 с.

Уильяме Э. и др. Active Server Pages (с компакт-диском) Усаров Г. Microsoft Outlook 2002 Ханкт Ш. Эффекты CorelDRAW (с компакт-диском) Серия "Мастер" CD-ROM с примерами к книгам "Ресурсы MS Windows NT Server 4.0" и "Сетевые средства Windows NT Server 4" Microsoft Press. Электронная коммерция. В2В-программирование (с компакт-диском) Microsoft Press. Visual Basic 6.0 Microsoft Press. Ресурсы MS Windows NT Server 4.0 Айзеке С. Dynamic HTML (с компакт-диском) Анин Б. Защита компьютерной информации Асбари С. Корпоративные решения на базе Linux Березин С. Факс-модемы: выбор, подключение, выход в Интернет Березин С. Факсимильная связь 8 Windows Борн Г. Реестр Windows 98 (с дискетой) Бухвалов А. и др. Финансовые вычисления для профессионалов Валиков А. Технология XSLT Габбасов Ю. Internet 2000 Гарбар П. Novell GroupWise 5.5: система электронной почты и коллективной работы Гарнаев A, Microsoft Excel 2000: разработка приложений Гарнаев A. Excel, VBA, Internet в экономике и финансах Гарнаев А., Гарнаев С. Web-программирование на Java и JavaScript Гордеев О. Программирование звука в Windows (с дискетой) Гофман В., Хомоненко А. Работа с базами данных в Delphi Дарахвелидзе П. и др. Программирование в Delphi 5 (с дискетой) Дронов В. JavaScript в Web-дизайне Дубина А. и др. MS Excel в электронике и электротехнике Дубина А. Машиностроительные расчеты в среде Excel 97/2000 (с дискетой) Дунаев С. Технологии Интернет-программирования Жарков С. Shareware: профессиональная разработка и продвижение программ Зима В. и др. Безопасность глобальных сетевых технологий Киммел П. Borland C++ 5 Костарев А. РНР в Web-дизайне Краснов М. DirectX. Графика в проектах Delphi (с компакт-диском) Краснов М. Open GL в проектах Delphi (с дискетой) Кубенский А. Создание и обработка структур данных в примерах на Java Кулагин Б. 3ds max 4: от объекта до анимации Купенштейн В. MS Office и Project в управлении и делопроизводстве Куприянов М. и др. Коммуникационные контроллеры фирмы Motorola Лавров С. Программирование. Математические основы, средства, теория Лукацкий А. Обнаружение атак 672 с. 656 с. 704 с.

368 с. 992 с. 752 с 496 с. 384 с. 496 с. 256 с. 250 с, 496 с. 320 с. 432 с. 448 с. 480 с. 576 с. 816 с. 1040 с. 384 с. 656 с. 784 с. 880 с. 304 с. 416 с. 480 с. 320 с. 320 с. 976 с. 592 с. 416 с. 352 с. 336 с. 448 с, 400 с. 560 с. 304 с. 624 с.

Матросов A. Maple 6. Решение задач высшей математики и механики Медведев Е., Трусова В. "Живая" музыка на PC (с дискетой) Мешков А., Тихомиров Ю. Visual C++ и MFC, 2-е издание (с дискетой) Миронов Д. Создание Web-страниц в MS Office 2000 Мещеряков Е., Хомоненко А. Публикация баз данных в Интернете Михеева В., Харитонова И. Microsoft Access 2000;

разработка приложений Новиков Ф. и др. Microsoft Office 2000: разработка приложений Нортон П. Разработка приложений в Access 97 (с компакт-диском) Одинцов И. Профессиональное программирование. Системный подход Олифер В., Олифер Н. Новые технологии и оборудование IP-сетей Подольский С. и др. Разработка интернет-приложений в Delphi (с дискетой) Полещук Н. Visual LISP и секреты адаптации AutoCAD Понамарев В. СОМ и ActiveX в Delphi Пономаренко С. Adobe InDesign: дизайн и верстка Попов А. Командные файлы и сценарии Windows Scripting Host Приписное Д. Моделирование в 3D Studio MAX 3.0 (с компакт-диском) Роббинс Дж, Отладка приложений Рудометов В., Рудометов Е. PC: настройка, оптимизация и разгон, 2-е издание Русеев Д. Технологии беспроводного доступа. Справочник Соколенко П. Программирование SVGA-графики для IBM Тайц А. Каталог Photoshop Plug-Ins Тихомиров Ю. MS SQL Server 2000: разработка приложений Тихомиров Ю. SQL Server 7.0: разработка приложений Тихомиров Ю. Программирование трехмерной графики в Visual C++ (с дискетой) Трельсен Э. Модель СОМ и библиотека ATL 3.0 {с дискетой) Федоров А., Елманова Н. ADO в Delphi (с компакт-диском) Федорчук А. Офис, графика, Web в Linux Чекмарев A. Windows 2000 Active Directory Чекмарев А. Средства проектирования на Java (с компакт-диском) Шапошников И. Web-сайт своими руками Шапошников И. Интернет-программирование Шапошников И. Справочник Web-мастера. XML Шилдт Г. Теория и практика C++ Яцюк О., Романычева Э. Компьютерные технологии в дизайне. Логотипы, упаковка, буклеты (с компакт-диском) Серия "Изучаем вместе с BHV" Березин С. Internet у вас дома, 2-е издание Тайц A. Adobe Photoshop 5.0 (с дискетой) 528 с. 720 с. 1040 с. 320 с. 560 с. 832 с. 680 с. 656 с. 512 с. 512 с. 432 с. 576 с. 320 с. 544 с. 320 с. 352 с. 512 с. 336 с. 352 с. 432 с. 464 с. 368 с. 370 с. 256 с. 928 с. 816 с. 416 с. 400 с. 400 с. 224 с. 224 с. 304 с. 416 с. 464 с.

752 с. 448 с.

Серия "Самоучитель" Ананьев А., Федоров А. Самоучитель Visual Basic 6.0 Васильев В. Основы работы на ПК Гарнаев А. Самоучитель VBA Герасевич В. Самоучитель. Компьютер для врача Дмитриева М. Самоучитель JavaScript Долженков В. Самоучитель Excel 2000 (с дискетой) Исагулиев К. Macromedia Dreamweaver 4 Исагулиев К. Macromedia Flash 5 Кетков Ю., Кетков А. Практика программирования: Бейсик, Си, Паскаль (с дискетой) Кирьянов Д. Самоучитель Adobe Premiere 6.0 Кирьянов Д. Самоучитель MathCAD 2001 Коркин И. Самоучитель Microsoft Internet Explorer 6.0 Котеров Д. Самоучитель РНР 4 Культин Н. Программирование на Object Pascal в Delphi 6 (с дискетой) Культин Н. Самоучитель. Программирование в Turbo Pascal 7.0 и Delphi, 2-е издание (с дискетой) Леоненков А. Самоучитель UML Матросов А., Чаунин М. Самоучитель Perl Омельченко Л., Федоров А. Самоучитель Microsoft FrontPage 2002 Омельченко Л., Федоров А. Самоучитель Windows 2000 Professional Омельченко Л., Федоров А. Самоучитель Windows Millennium Пекарев Л. Самоучитель 3D Studio MAX 4.0 Полещук Н. Самоучитель AutoCad 2000 и Visual LISP, 2-е издание Полещук Н. Самоучитель AutoCAD 2002 Понамарев В. Самоучитель Kylix Секунов Н. Самоучитель Visual C++ 6 (с дискетой) Секунов Н. Самоучитель С# Сироткин С. Самоучитель WML и WMLScript Тайц А. М., Тайц А. А. Самоучитель Adobe Photoshop 6 {с дискетой) Тайц А. М., Тайц А, А. Самоучитель CorelDRAW 10 Тихомиров Ю. Самоучитель MFC (с дискетой) Хабибуллин И. Самоучитель Java Хомоненко А. Самоучитель Microsoft Word 2002 Шапошников И. Интернет. Быстрый старт Шапошников И. Самоучитель HTML 4 Шилдт Г. Самоучитель C++, 3-е издание (с дискетой) Серия "Компьютер и творчество" 624 с. 448 с. 512 с. 640 с. 512 с. 368 с. 560 с. 368 с. 480 с. 432 544 288 576 528 с. с. с. с. с.

416 с. 304 с. 432 с. 576 с, 528 с. 464 с. 370 с. 672 с. 608 416 960 576 240 608 с. с. с. с. с. с.

640 с. 640 с. 464 с. 624 с. 272 с. 288 с. 512 с.

Деревских В. Музыка на PC своими руками Дунаев В. Сам себе Web-дизайнер Дунаев В. Сам себе Web-мастер 352 с. 512 с. 288 с.

Людиновсков С. Музыкальный видеоклип своими руками Петелин Р., Петелин Ю. Аранжировка музыки на PC Петелин Р., Петелин Ю. Звуковая студия в PC Петелин Р., Петелин Ю. Музыка на PC. Cakewalk Pro Audio 9. Секреты мастерства Петелин Р., Петелин Ю. Музыка на PC. Cakewalk. "Примочки" и плагины Петелин Р., Петелин Ю. Музыкальный компьютер. Секреты мастерства Петелин Р., Петелин Ю. Персональный оркестр в PC Серия "Учебное пособие" Бенькович Е, Практическое моделирование динамических систем (с компакт-диском) Гомоюнов К. Транзисторные цепи Дорот В. Толковый словарь современной компьютерной лексики, 2-е издание Культин Н. C/C++ в задачах и примерах Культин Н. Turbo Pascal в задачах и примерах Порев В. Компьютерная графика Робачевскмй Г. Операционная система Unix Сафронов И. Бейсик в задачах и примерах Солонина А. и др. Алгоритмы и процессоры цифровой обработки сигналов Солонина А. и др. Цифровые процессоры обработки сигналов фирмы MOTOROLA Угрюмов Е. Цифровая схемотехника. Шелест В. Программирование Серия "Знакомьтесь" Надеждин Н. Карманные компьютеры Надеждин Н. Портативные компьютеры Надеждин Н. Знакомьтесь, цифровые фотоаппараты Серия "Быстрый старт" 320 с. 272 с. 256 с. 420 с. 272 с. 608 с. 240 с, 464 с. 240 с. 512 с. 288 256 432 528 224 464 512 с. с. с, с. с. с. с.

528 с. 592 с.

304 с. 288 с. 304 с.

Васильева В. Персональный компьютер. Быстрый старт Гофман В., Хомоненко A. Delphi. Быстрый старт Дмитриева М. JavaScript. Быстрый старт Культин Н. Microsoft Excel. Быстрый старт Хомоненко А., Гридин. В. Microsoft Access. Быстрый старт 480 с. 288 с. 336 с. 208 с. 304 с.

Pages:     | 1 |   ...   | 3 | 4 ||



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.