; ; AutoHotkey Version: 1.x ; Language: English ; Platform: Win9x/NT ; Author: Kerry <[email protected]> ; ; Script Function: ; Takes a programs icon and sticks it in the current folder. ; Supports EXE, DLL, OCX, CPL, and more ; ; Please visit http://www.nirsoft.net/utils/iconsext.html for variations with iconsext.exe #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases. SendMode Input ; Recommended for new scripts due to its superior speed and reliability. FileInstall readme.txt, %A_ScriptDir%\readme.txt, 0 FileInstall iconsext.exe, %A_ScriptDir%\iconsext.exe, 0 FileInstall iconsext.chm, %A_ScriptDir%\iconsext.chm, 0 FileSelectFile, file, 1,,Please select a program with an .exe`, .ocx`, .dll` or .cpl extension, Program Files (*.exe; *.ocx; *.dll; *.cpl) If file = { DelFile("readme.txt") DelFile("iconsext.exe") DelFile("iconsext.chm") ExitApp } file := ShortPath(file) dir := ShortPath(A_ScriptDir) Run iconsext /save %file% %dir% -icons,, Hide SplitPath file,,,, iFile MsgBox The icon(s) have been created in %A_ScriptDir% DelFile("readme.txt") DelFile("iconsext.exe") DelFile("iconsext.chm") ShortPath(LongPath) { Loop, %LongPath%, 1 Return A_LoopFileShortpath } DelFile(path) { IfExist %path% { FileDelete %A_ScriptDir%\%path% } }
It's required in the programs license to have all files be used if redistributed: http://www.nirsoft.n...ls/iconsext.zip
-Kerry
EDIT:
changed title to GrabIc (extract icon s) so that if someone searches the forum for "extract icon" it can be found (like I did).