dostum nasıl çalcaz bu setup programlarının ikonlarını Style

Formunuza bir adet imagelist (ImageList1) ve bir adet buton (Button1) ekleyin. Butonun OnClick Eventine aşşağıdaki kodu ekleyin. procedure TForm1. Button1Click ; var icon1:ticon; ndx:integer; begin icon1:=ticon. Create; ndx:=0; repeat icon1. handle := extracticon(handle, pchar , ndx); if icon1. handle <> 0 then imagelist1. AddIcon(icon1); inc ; until icon1. handle = 0; end; Yapılan iş bir icon variable'ına extracticon api'si ile iconu yüklemek daha sonra bunu imagelist'e eklemektir. Image list componenti sadece örnek amacı ile kullanılıyor. ExtractIcon fonksiyonu ShellApi fonksiyonu içinde yer alıyor. Uses ShellApi satırını programınıza eklemeyi unutmayın. D.