Mega Code Archive

 

Categories / Delphi / Graphic

 

Sistem iconlarinin alinmasi [klasör, dosya, sürücü vb]

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;