Виртуальная библиотека Delphi

Виртуальная библиотека Delphi

Авторы:

Жанр: Программирование

Циклы: не входит в цикл

Формат: Полный

Всего в книге 93 страницы. У нас нет данных о годе издания книги.

В книге рассказывается история главного героя, который сталкивается с различными проблемами и препятствиями на протяжении всего своего путешествия. По пути он встречает множество второстепенных персонажей, которые играют важные роли в истории. Благодаря опыту главного героя книга исследует такие темы, как любовь, потеря, надежда и стойкость. По мере того, как главный герой преодолевает свои трудности, он усваивает ценные уроки жизни и растет как личность. Книга завершается финалом, связывающим воедино темы и сюжетные линии, исследуемые на протяжении всей истории. В целом, книга представляет собой увлекательное и наводящее на размышления чтение, которое исследует человеческий опыт уникальным и осмысленным образом.

Читать онлайн Виртуальная библиотека Delphi


Статьи

Советы по Delphi

Советы по работе с системой

Советы для написания программ-инсталляторов

Регистрация программ в меню "Пуск" Windows 95

Подобная проблема возникает при создании инсталляторов и деинсталляторов. Наиболее простой и гибкий путь — использование DDE. При этом посылаются запросы к PROGMAN. Для этого необходимо поместить на форму компонент для посылки DDE запросов — объект типа TDdeClientConv. Для определенности назовем его DDEClient. Затем добавим метод для запросов к PROGMAN:

>Function TForm2.ProgmanCommand(Command:string):boolean;

> var macrocmd:array[0..88] of char;

>begin

> DDEClient.SetLink('PROGMAN','PROGMAN');

> DDEClient.OpenLink; { Устанавливаем связь по DDE }

> strPCopy(macrocmd,'['+Command+']'); { Подготавливаем ASCIIZ строку }

> ProgmanCommand :=DDEClient.ExecuteMacro(MacroCmd,false);

> DDEClient.CloseLink; { Закрываем связь по DDE }

>end;

При вызове ProgmanCommand возвращает true, если посылка макроса была успешна. Система команд (основных) приведена ниже:

>Create(Имя группы, путь к GRP файлу)

Создать группу с именем "Имя группы", причем в нем могут быть пробелы и знаки препинания. Путь к GRP файлу можно не указывать, тогда он создастся в каталоге Windows.

>Delete(Имя группы)

Удалить группу с именем "Имя группы"

>ShowGroup(Имя группы, состояние)

Показать группу в окне, причем состояние — число, определяющее параметры окна:

1 — нормальное состояние + активация

2 — миним.+ активация

3 — макс. + активация

4 — нормальное состояние

5 — Активация

>AddItem(командная строка, имя раздела, путь к иконке, индекс иконки (с 0), Xpos,Ypos, рабочий каталог, HotKey, Mimimize)

Добавить раздел к активной группе. В командной строке, имени размера и путях допустимы пробелы, Xpos и Ypos — координаты иконки в окне, лучше их не задавать, тогда PROGMAN использует значения по умолчанию для свободного места. HotKey - виртуальный код горячей клавиши. Mimimize — тип запуска, 0 — в обычном окне, <>0 — в минимизированном.

>DeleteItem(имя раздела)

Удалить раздел с указанным именем в активной группе

Пример использования:

>ProgmanCommand('CreateGroup(Комплекс программ для каталогизации литературы,)');

>ProgmanCommand('AddItem('+path+'vbase.hlp,Справка по VBase,'+ path +' vbase.hlp, 0, , , '+ path + ',,)');

где path — строка типа String, содержащая полный путь к каталогу ('C:\Catalog\');

Как программно создать ярлык?

>uses ShlObj, ComObj, ActiveX;

>procedure CreateLink(const PathObj, PathLink, Desc, Param: string);

>var

> IObject: IUnknown;

> SLink: IShellLink;

> PFile: IPersistFile;

>begin

> IObject := CreateComObject(CLSID_ShellLink);

> SLink := IObject as IShellLink;

> PFile := IObject as IPersistFile;

> with SLink do begin

>  SetArguments(PChar(Param));

>  SetDescription(PChar(Desc));

>  SetPath(PChar(PathObj));

> end;

> PFile.Save(PWChar(WideString(PathLink)), FALSE);

>end;

Затенить кнопку «Закрыть» в заголовке формы

Следующий текст убирает команду «закрыть» из системного меню и одновременно делает серой кнопку «закрыть» в заголовке формы: 

>procedure TForm1.FormCreate(Sender: TObject);

>var hMenuHandle:HMENU;

>begin

> hMenuHandle := GetSystemMenu(Handle, FALSE);

> IF (hMenuHandle <> 0) THEN DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

>end;

Копирование файлов

Копирование методом TurboPascal

>Type

> TCallBack=procedure(Position,Size:Longint); {Для индикации процесса копирования}


>procedure FastFileCopy(Const InfileName, OutFileName: String; CallBack: TCallBack);

>Const BufSize = 3*4*4096; { 48Kbytes дает прекрасный результат }

>Type

> PBuffer = ^TBuffer;

> TBuffer = array [1..BufSize] of Byte;

>var

> Size : integer;

> Buffer : PBuffer;

> infile, outfile : File;

> SizeDone,SizeFile: Longint;

>begin

> if (InFileName <> OutFileName) then begin

>  buffer := Nil;

>  AssignFile(infile, InFileName);

>  System.Reset(infile, 1);

>  try

>   SizeFile := FileSize(infile);

>   AssignFile(outfile, OutFileName);

>   System.Rewrite(outfile, 1);

>   try

>    SizeDone := 0; New(Buffer);

>    repeat

>     BlockRead(infile, Buffer^, BufSize, Size);

>     Inc(SizeDone, Size);

>     CallBack(SizeDone, SizeFile);

>     BlockWrite(outfile,Buffer^, Size)

>    until Size < BufSize;

>    FileSetDate(TFileRec(outfile).Handle,

>    FileGetDate(TFileRec(infile).Handle));

>   finally

>    if Buffer <> Nil then Dispose(Buffer);

>    System.close(outfile)

>   end;

>  finally

>   System.close(infile);

>  end;

> end else Raise EInOutError.Create('File cannot be copied into itself');

>end;

Копирование методом потока

>Procedure FileCopy(Const SourceFileName, TargetFileName: String);

>Var

> S,T : TFileStream;

>Begin

> S := TFileStream.Create(sourcefilename, fmOpenRead );

> try

>  T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);

>  try

>   T.CopyFrom(S, S.Size ) ;

>   FileSetDate(T.Handle, FileGetDate(S.Handle));

>  finally

>   T.Free;

>  end;

> finally

>  S.Free;

> end;

>end;

Копирование методом LZExpand

>uses LZExpand;

>procedure CopyFile(FromFileName, ToFileName : string);

>var

> FromFile, ToFile: File;

>begin

> AssignFile(FromFile, FromFileName);

> AssignFile(ToFile, ToFileName);

> Reset(FromFile);

> try

>  Rewrite(ToFile);

>  try

>   if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle)<0 then raise Exception.Create('Error using LZCopy')

>  finally


С этой книгой читают
Питон — модули, пакеты, классы, экземпляры

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


Обработка событий в С++

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


Симуляция частичной специализации
Автор: П Кузнецов

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


MFC и OpenGL

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


Java 7

Рассмотрено все необходимое для разработки, компиляции, отладки и запуска приложений Java. Изложены практические приемы использования как традиционных, так и новейших конструкций объектно-ориентированного языка Java, графической библиотеки классов Swing, расширенной библиотеки Java 2D, работа со звуком, печать, способы русификации программ. Приведено полное описание нововведений Java SE 7: двоичная запись чисел, строковые варианты разветвлений, "ромбовидный оператор", NIO2, новые средства многопоточности и др.


Pro Git

Разработчику часто требуется много сторонних инструментов, чтобы создавать и поддерживать проект. Система Git — один из таких инструментов и используется для контроля промежуточных версий вашего приложения, позволяя вам исправлять ошибки, откатывать к старой версии, разрабатывать проект в команде и сливать его потом. В книге вы узнаете об основах работы с Git: установка, ключевые команды, gitHub и многое другое.В книге рассматриваются следующие темы:основы Git;ветвление в Git;Git на сервере;распределённый Git;GitHub;инструменты Git;настройка Git;Git и другие системы контроля версий.


Статьи

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


Сыновья

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


Йога идет на Запад

Человек велик в своем потенциале, но так мало его использует. Увлекшись разумом, мы почти отказались от глубин и вершин собственного Духа.Мы захлебываемся, бродя по колено в море информации, и отчаянно боимся упасть, если только поднимаем глаза к небу. Но тот же разум требует расширить взаимодействие с миром, смотреть и видеть, прикасаться и чувствовать, ощущать и переживать его во всей полноте.ЭЗО-terra – территория тех, кто уже вдохнул воздух свободы и попытался рассказать об этом остальным. Это мир глазами видящих, зов в слове услышавших, воплощение Духа в сосудах человеческой смелости, безрассудства и мудрости.ЭЗО-terra – взгляд на нашу жизнь со следующей ступени бытия, набор инструментов для будущего, оставленный нам Мастерами.Пришло время действия со знанием!* * *«…Пока хоть одна собака в моей стране не имеет пищи, накормить ее – вот моя религия» – слова Свами Вивекананды.


Расслабьтесь за минуту. 10 шагов к мгновенному спокойствию
Автор: Тони Райтон

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


Другие книги автора
Галчонок
Жанр: Эротика

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


Призраки ночи

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


Закат  вечности

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


mmmavro.org | День 131, Победа

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