Delphi. Трюки и эффекты

Листинг 7.20.

Регистрация типа файла

procedure RegisterAppDocuments;

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_CLASSES_ROOT;

//Вносим информацию о нашем типе файла в реестр

//..само расширение

if reg.OpenKey(\'.mydoc\', True) then

begin

reg.WriteString(\'\', \'TricksDelphi.DocumentSample\');

reg.CloseKey;

end;

//..описание типа файла

if reg.OpenKey(\'TricksDelphi.DocumentSample\', True) then

begin

reg.WriteString(\'\', \'Документ TricksDelphi.DocumentSample\');

reg.CloseKey;

end;

//..значок для файлов MYDOC-типа

if reg.OpenKey(\'TricksDelphi.DocumentSample\DefaultIcon\', True)

then

begin

reg.WriteString(\'\', Application.ExeName + \', 1\');

reg.CloseKey;

end;

//..приложение, открывающее MYDOC-документ

if reg.OpenKey(\'TricksDelphi.DocumentSample\Shell\Open\Command\',

True)

then

begin

reg.WriteString(\'\', Application.ExeName + \' %1\');

reg.CloseKey;

end;

reg.Free;

end;

Результат работы этой процедуры показан на рис. 7.10.

Рис. 7.10. Результат регистрации типа файла

Теперь при выборе в файловой оболочке наше приложение запускается с путем выбранного файла (правда, в формате 8.3) в качестве аргумента командной строки. Как перевести путь из короткой формы в длинную (если это вообще надо), рассказано в разд. 4.2. Если вы не знакомы с тем, как получать доступ к аргументам командной строки, можете взглянуть на листинг 7.21 (тут происходит отображение имени открываемого файла в текстовом поле на форме).

...

Листинг 7.21.

Определение имени открываемого файла

procedure TForm1.FormCreate(Sender: TObject);

begin

if ParamCount > 0 then

begin

//Обрабатываем данные командной строки…

txtDoc.Text := \'Имя открываемого файла: \' + ParamStr(1);

end;

end;

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

...

Листинг 7.22.

Удаление из реестра сведений о типе файла

procedure UnregisterAppDocuments;

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_CLASSES_ROOT;

//Удаление из реестра информации о типе файла

reg.DeleteKey(\'.mydoc\');

reg.DeleteKey(\'TricksDelphi.DocumentSample\');

reg.Free;

end;

Программа для просмотра реестра

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

В итоге у нас получится этакая альтернатива программе Редактор реестра, правда, пригодная только для просмотра, но не для редактирования реестра. Главная форма программы выглядит так, как показано на рис. 7.11.

Рис. 7.11. Программа для просмотра реестра

Рассмотрим функции и процедуры, формирующие основу этого приложения, в порядке их использования. Итак, при запуске формы составляется список корневых разделов реестра (листинг 7.23).

...