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