Home

Page 317
Page 317
background image

310 Глава 6

Вся необходимая информация находится в реестре, и именно оттуда мы и

будем ее читать, поэтому в раздел uses нужно сразу же добавить

вующий МОДУЛЬ — Registry.

После нажатия кнопки Прочитать мы должны выяснить информацию об

указанном типе файла. Для этого в обработчике события Onclick кнопки

напишите следующее (листинг 6.5).

Reg:

 Iconlndex: String;

PC:

 of Char;

i: Integer;

ExtIcon:TIcon;

begin

Reg

try

with Reg do

begin

RootKey

 True);

ExtDescription :=

 + ExtDescription, True);

FileDescription

 True);

IconFileName :

 IconFileName, Iconlndex);

 IconFileName);

 PC,

 + ExtDescription +

 True);

OpenWith

i

 "" , OpenWith);

if i = 1 then

begin

OpenWith

 2,

 - 1);

i

 Pos("",


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.