uses commctrl, shellapi;
{
Form'un uzerine TImageList, TImage ve EditBox koyun.
Edit1'in icine 0, 1, 3 .. sayilar girip Button1' basin
}
Procedure TForm1.CreateImages;
var
SysIL: HImageList;
SFI: TSHFileInfo;
begin
SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI),
SHGFI_SYSICONINDEX or SHGFI_largeICON);
if SysIL <> 0 then begin
ImageList1.Handle := SysIL;
ImageList1.ShareImages := TRUE;
end;
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateImages;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
imagelist1.GetIcon(strtoint(edit1.text), image1.picture.icon);
end;