Существует такая штука, как сжатие данных. Хорошо, если вы инсталлируете свою программу с компакт-диска. Как правило, в такой ситуации вы не знаете, что ещё записать на эту бездонную болванку и несколько лишних мегабайт вам в данной ситуации совсем не помешают :) Совершенно по другому обстоят дела с дискетами. На дискеты надо помещать сжатую информацию — в этом случае вся ваша программа возможно (только возможно) влезет всего лишь на тридцать четыре дискеты. Вот как делать сжатие — это вопрос. Я расскажу вам о нескольких методах сжатия данных, которыми вы можете воспользоваться. Метод номер раз — это сжатие файлов стандартными утилитами, разработанными фирмой Microsoft. Когда-то это была программа compress.exe (9554), сейчас — cabarc.exe (35703). hInFile := LZOpenFile(PChar(SourcePath), ofInReOpenBuff, OF_READ); hOutFile := LZOpenFile(PChar(TargetPath), ofOutReOpenBuff, OF_CREATE or OF_WRITE); iLZError := LZCopy(hInFile, hOutFile); if iLZError > 0 then // Операция выполнилась успешно, скопировано iLZError байт else // Ошибка номер iLZError LZClose(hOutFile); LZClose(hInFile); Метод номер два — сжатие файлов с помощью библиотеки ZLib, которая поставляется вместе с Delphi (она находится в каталоге InfoExtrasZLib оригинального диска с Delphi 3.0). Она предоставляет вам два класса, которые являются наследниками TStream. Вы можете воспользоваться кодом функции копирования при помощи TFileStream из предыдущей статьи для того, чтобы реализовать как сжатие, так и распаковку произвольного потока (в том числе и файла). Ещё один метод — использование динамической библиотеки unrar.dll (27336), разработанной Евгением Рошалом. Существуют и другие библиотеки (даже компоненты), вы можете свободно найти их, если будете достаточно долго шляться по Интернету. Примечание: Мне кажется, что менее всего размер вашей инсталляции увеличится, если вы используете методы, предлагаемые Microsoft; ровно потому, что они встроены в Windows и вам не надо записывать их на дискету. Копирование нескольких файлов представляется достаточно простым, раз уж мы научились копировать один файл. Наиболее просто это делается, если ваши файлы поставляются в одном архиве (.CAB или .RAR). Сложным может показаться копирование файлов по маске (*.*) и копирование вложенных подкаталогов. Ниже приводится исходный текст процедуры, которая составляет список файлов в каталоге и всех вложенных подкаталогах. procedure ReadTree(Path: String; Strings: TStrings); procedure ReadFolder(Path: String; Strings: TStrings); var SearchRec: TSearchRec; FindResult: Integer; begin FindResult := FindFirst(Path + '*.*', faAnyFile, SearchRec); while FindResult = 0 do begin // Если найден подкаталог, рекурсивно читаем его содержимое // Не забываем игнорировать подкаталоги '.' и '..' with SearchRec do if (Name <> '.') and (Name <> '..') then begin Strings.Add(Path + Name); if (Attr and faDirectory <> 0) then ReadFolder(Path + Name + '', Strings); end; FindResult := FindNext(SearchRec); end; FindClose(SearchRec); end; begin // Эта процедура заносит в Strings список файлов во всех вложенных папках // каталога Path и сами эти папки Strings.Clear; if (Length(Path) > 0) and (Path[Length(Path)] <> '') then Path := Path + ''; ReadFolder(Path, Strings); end; Отдельно стоит поговорить о тех файлах, которые могут использоваться сразу несколькими программами. Для этих файлов существует даже специальное название — разделяемые (поскольку несколько программ делят их между собой). Обычно они записываются в системный каталог Windows (для Windows 95 это как правило WINDOWSSYSTEM, для Windows NT — WINNTSYSTEM32). Если системный каталог доступен только для чтения, то эти файлы необходимо записывать в каталог Windows (WINDOWS и WINNT соответственно), который всегда доступен для записи. function GetSysDir: String; var szPath: array [0..MAX_PATH - 1] of Char; I: Integer; Stream: TStream; begin // Получаем системный каталог GetSystemDirectory(szPath, MAX_PATH); Result := StrPas(szPath); // Добавляем обратный слеш в конец пути, если его там нет if (Length(Result) > 0) and (Result[Length(Result)] <> '') then Result := Result + ''; // Подбираем имя файла вида XXXXXXXX.TMP, где XXXXXXXX --- // шестнадцатиричное число, который не существует в системном каталоге I := 0; while FileExists(Result + IntToHex(I, 8) + '.TMP') do Inc(I); try // Создаём файл и удаляем его. Если всё нормально, то каталог доступен // для записи. Stream := TFileStream(Result + IntToHex(I, 8) + '.TMP', fmCreate); Stream.Free; DeleteFile(Result + IntToHex(I, 8) + '.TMP'); except // Если создать файл не удалось, в качестве системного каталога будем // использовать каталог Windows. GetWindowsDirectory(szPath, MAX_PATH); Result := StrPas(szPath); if (Length(Result) > 0) and (Result[Length(Result)] <> '') then Result := Result + ''; end; end; Если разделяемый файл уже существует в целевом каталоге, то необходимо сравнить версии, языки и др. характеристики двух файлов и на основании этого сравнения решать — копировать файл или не надо. При копировании разделяемых файлов требуется уведомить Windows о том, что одним разделением стало больше. Это делается через реестр. При замещении файлов, которые в момент инсталляции используются Windows требуется определённая техника, поскольку перезаписать занятый файл нельзя. Эти вопросы в ближайшее время будут освещены в следующей статье. Поистине, копирование файлов — тема неисчерпаемая :) Напоследок, исследуем вопрос о том, куда копировать файлы? В соответствии с рекомендациями Microsoft, каталог вашей программы должен иметь форму <Название вашей фирмы><Название продукта>. Вы можете также включить в название каталога информацию о версии продукта, например C:Program FilesBorlandDelphi 3, хотя возможен и вариант C:Program FilesBorlandDelphi3 (реально фирма Borland использует первый вариант). Бывают и исключения, в частности FAR Евгения Рошала ставится в C:Program FilesFAR. Разделяемые файлы следует копировать в системный каталог Windows, а если он защищён от записи — в каталог Windows
|