WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

How To
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Icon Extractor


;Extract Icons from EXE or DLL's using Winbatch functions.

bkpath = "c:\icons\backup\"
If !DirExist(bkpath) Then DirMake(bkpath)

BoxOpen("Icon Extractor","Initializing")

AddExtender("wsrch34i.dll")

; handle=srchInit("C:\Program Files","*.exe","","",16)
; handle=srchInit("C:\windows","*.exe","","",16)
handle=SrchInit("C:\windows","*.dll","","",16)
While 1
   exefile=SrchNext(handle)
   If exefile=="" Then Break
   BoxText(exefile)
   ErrorMode(@OFF)
   arr = IconInfo(exefile, 0)
   ErrorMode(@CANCEL)
   err = LastError()
   If err != 0 Then Continue
   groups = arr[0,0,0]
   info = ""
   For i = 1 To groups
      If groups == 1
         icofile = StrCat(bkpath, FileRoot(exefile), ".ico")
      Else
         icofile = StrCat(bkpath, FileRoot(exefile), "_", i, ".ico")
      EndIf
      IconExtract(exefile, icofile, i)
   Next
EndWhile
SrchFree(handle)
Message("Icon Extractor", "Completed")

Article ID:   W17009
File Created: 2007:07:03:14:27:34
Last Updated: 2007:07:03:14:27:34