ClassesRoot: IRegistryKey;
Свойство ClassesRoot возвращает раздел реестра, содержащий сведения, обеспечивающие открытие необходимой программы при открытии файла.
Sub UserProc;
Var
RegKey: IRegistryKey;
Begin
RegKey := RegistryClass.ClassesRoot;
Debug.WriteLine(RegKey.Name);
End Sub UserProc;
После выполнения примера в консоль среды разработки будет выведено наименование раздела, содержащего сведения, обеспечивающие открытие необходимой программы при открытии файла.
См.также: