DELPHI / Hicon To Ticon
var MyIcon:TIcon; icoHandle: HIcon; begin MyIcon:=TIcon.Create; try icoHandle := ExtractIcon(application.handle,’c:\windows\explorer.exe’, 0); MyIcon.Handle:=icoHandle; Image1.Picture.Icon:=MyIcon; finally MyIcon.free; end; end; Tags: hazır kodlar, Hicon, Ticon, To
» Devamını Oku