... OpenKey('DefaultIcon1, True); IconFileName : = ReadStringf''); SplitStr(',', IconFileName, Iconlndex); StrPCopy(PC, IconFileName); Extlcon.Handle :- ExtractlconfO, PC, StrToInt(Iconlndex)); Imagel.Picture.Assign(Extlcon); ... следующее (листинг 6.5) var Reg: TRegistry; IconFileName, Iconlndex: String; PC: ArrayfO 255] of Char; i: Integer; ExtIcon:TIcon; begin Extlcon:=TIcon.Create; Reg : TRegistry.Create; = try with ... программа работает верно и без ошибок Л v •& 95 9 I i l Л \ § J / S 8%6%7%6 %9% 7%8%5%7%7% 9 7 3 , 9 9 , , , , , , , , 9 75 70- г / / , ,' Ё5 Рис 6.8 Пример работы программы Теперь рассмотрим...