Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;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