/|\АРТЕМ.NET.RU /|\ - Портал для программистов и не только: Delphi Visual Basic BORLAND С++ PERL PHP HTML

Delphi 2

Использование 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]