Mega Code Archive

 

Categories / Delphi / Graphic

 

[] Exe,dll,sys,ocx icon çıkarmak

//drony@mynet.com // icq:266148308 uses ShellAPI; var oIcon : TIcon; begin oIcon := TIcon. Create; oIcon.Handle := ExtractIcon(oIcon.Handle,'C:\Setup.exe',0); oIcon.SaveToFile('C:\Setup.ico'); oIcon.Free; end;