Современные технологии разработки программного обеспечения. Сивохин А.В - 16 стр.

begin
closekey;
rootkey:=HKEY_CLASSES_ROOT;
if openkey(strings[i], false) then
begin
if keyexists('Insertable') then
begin
oletype:=ReadString('');
openkey('CLSID', false);
clsid:=ReadString('');
closekey;
if openkey('CLSID\'+CLSID, false) then

begin
olenames. add(oletype);
if openkey('ProgId', false) then
progid. add(ReadString(''))
else progid. add(' [NO PROG ID] ');
end;end;end;end;
finally
free;
end;

finally keynames. free;
end;
end;

procedure TIOO. FormCreate(Sender: TObject);
begin
progids:=tstringlist. create;
end;

procedure TIOO. ListBox1DblClick(Sender: TObject);
begin
selected_progid:=progids[listbox1. itemindex];
modalresult:=mrok;
end;

procedure TIOO. BtnCancelClick(Sender: TObject);
begin
selected_progid:='';
modalresult:=mrcancel;
                                  16