|
Существует такая штука, как сжатие данных. Хорошо, если вы инсталлируете свою
программу с компакт-диска. Как правило, в такой ситуации вы не знаете, что ещё
записать на эту бездонную болванку и несколько лишних мегабайт вам в данной
ситуации совсем не помешают :)
Совершенно по другому обстоят дела с дискетами. На дискеты надо помещать
сжатую информацию — в этом случае вся ваша программа возможно (только возможно)
влезет всего лишь на тридцать четыре дискеты. Вот как делать сжатие — это
вопрос.
Я расскажу вам о нескольких методах сжатия данных, которыми вы можете
воспользоваться.
Метод номер раз — это сжатие файлов стандартными утилитами, разработанными
фирмой 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 (она находится в каталоге \Info\Extras\ZLib
оригинального диска с 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 это как
правило \WINDOWS\SYSTEM, для Windows NT — \WINNT\SYSTEM32). Если
системный каталог доступен только для чтения, то эти файлы необходимо записывать
в каталог 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, каталог вашей программы должен иметь форму <Program
Files>\<Название вашей фирмы>\<Название продукта>. Вы можете также включить
в название каталога информацию о версии продукта, например C:\Program
Files\Borland\Delphi 3, хотя возможен и вариант C:\Program
Files\Borland\Delphi\3 (реально фирма Borland использует первый вариант).
Бывают и исключения, в частности FAR Евгения Рошала ставится в C:\Program
Files\FAR.
Разделяемые файлы следует копировать в системный каталог Windows, а если он
защищён от записи — в каталог Windows.
А сейчас мы переходим к реестру.
| 
