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