Советы по Delphi


              

Использование TRegIniFile


...мой первоначальный вопрос относительно TRegIniFile был о том, что я не могу использовать никакого другого ключа, кроме HKEY_CURRENT_USER. Но как я понял из вашего ответа, ограничений не существует...

Я пробовал, и это работает. :-> К сожалению, способ использования параметров строки не очень интуитивен.

Как??

Попробуй следующее. Разместите на форме три компонента Label. Затем дважды щелкните на форме, тем самым создав скелет обработчика события формы OnCreate. Отредактируйте FormCreate() как показано ниже:

    procedure TForm1.FormCreate(Sender: TObject); var Registry: TRegIniFile;
begin Registry := TRegIniFile.Create(''); // имя файла не имеет значения
Registry.RootKey := HKEY_CLASSES_ROOT; // изменяем корень
// ищем акроним расширения файла проекта DPR
Label1.Caption := Registry.ReadString('.dpr', '', 'Ошибка');
// ищем текстовое описание данного акронима
Label2.Caption := Registry.ReadString(Label1.Caption, '', 'Ошибка');
// ищем для данного акронима/расширения команду оболочки (shell) Open
Label3.Caption := Registry.ReadString(Label1.Caption + '\Shell\Open\Command\', '', 'Ошибка');
Registry.Free; end;

Соберите (Build) и запустите ваше приложение. На трех компонентах Label вы должны увидеть следующую информацию: DelphiProject Delphi Project File "C:\Program Files\Borland\Delphi 2.0\BIN\DELPHI32.EXE" "%1" Они соответствуют трем значениям, найденным в системных регистрах.

- Tim Gooch [000963]



Содержание  Назад