shell32.dll и иконки

[Baaandit]

Ресторатор-да я даже не представляю что за программа). Такой код в инете нашел вроде работатет-130 иконок загружает из библиотеки.


var
j: integer;
h: hIcon;
ico: TIcon;
begin
il := TImageList.Create(Self);
for j := 0 to 130 do
begin
h := ExtractIcon(hInstance, 'C:\Windows\System32\shell32.dll', j);
if h <> 0 then begin
ico := TIcon.Create;
ico.Handle := h;
il.AddIcon(ico);
ico.Free;
end;
end;