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

Written on . Posted in [Delphi] Стандартные классы, VCL

Разместите на форме три компонента 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"
Они соответствуют трем значениям, найденным в системных регистрах.
форум микроконтроллеры