文件图标提取工具：extractIcon.exe
[code]@echo Off:: extractIcon.exe <[文件] [图标序号] [输出文件名]>
:: 返回值：
:: %errorlevel% = 0 : 成功提取
:: %errorlevel% = -1 : 参数错误
:: %errorlevel% = -2 : 找不到文件
:: %errorlevel% = -3 : 其他错误，序号不存在于文件中，或不能载入图标。
extractIcon.exe shell32.dll -131 test.ico
set "GetQQPath=reg query HKLM\Software\Tencent\QQ /v Install"
For /f "skip=4 tokens=2*" %%a in ('%GetQQPath%') do (
extractIcon.exe "%%bQQ.exe" -1 "%cd%\QQ.Ico"
)[/code]extractIcon.exe source:[code]#NoTrayIcon
#AutoIt3Wrapper_Change2CUI=y
Global $aEN[1]
Local $help = @scriptName & " <File> <Index> <Output file>" & @crLf
If $CmdLine[0] <> 3 then
consoleWrite($help)
exit(-1)
EndIf
$File = $CmdLine[1]
If not fileExists($File) then
$file = @systemDir & "\" & $cmdLine[1]
If not fileExists($File) then
consoleWriteErr($cmdLine[1] & " not found." & @crLf)
exit(-2)
EndIf
EndIf
$Index = number($cmdLine[2])
_ExtractIconToFile($File, $Index, $CmdLine[3])
If @error = 0 then exit(0)
exit(-3)
Func _ExtractIconToFile($sInFile, $iIcon, $sOutIco, $iPath = 0)
Local Const $LOAD_LIBRARY_AS_DATAFILE = 0x00000002
Local Const $RT_ICON = 3
Local Const $RT_GROUP_ICON = 14
Local $hInst, $iGN = "", $sData, $sHdr, $aHdr, $iCnt, $Offset, $FO, $FW, $iCrt = 18
If $iPath = 1 Then $iCrt = 26
If Not FileExists($sInFile) Then Return SetError(1, 0, 0)
If Not IsInt($iIcon) Then Return SetError(2, 0, 0)
$hInst = _LoadLibraryEx($sInFile, $LOAD_LIBRARY_AS_DATAFILE)
If Not $hInst Then Return SetError(3, 0, 0)
_ResourceEnumNames($hInst, $RT_GROUP_ICON)
For $i = 1 To $aEN[0]
If $i = StringReplace($iIcon, "-", "") Then
$iGN = $aEN[$i]
ExitLoop
EndIf
Next
Dim $aEN[1]
If $iGN = "" Then
_FreeLibrary($hInst)
Return SetError(4, 0, 0)
EndIf
$sData = _GetIconResource($hInst, $iGN, $RT_GROUP_ICON)
If @error Then
_FreeLibrary($hInst)
Return SetError(5, 0, 0)
EndIf
$sHdr = BinaryMid($sData, 1, 6)
$aHdr = StringRegExp(StringTrimLeft(BinaryMid($sData, 7), 2), "(.{28})", 3)
$iCnt = UBound($aHdr)
$Offset = ($iCnt * 16) + 6
For $i = 0 To $iCnt -1
Local $sDByte = Dec(_RB(StringMid($aHdr[$i], 17, 8)))
$sHdr &= StringTrimRight($aHdr[$i], 4) & _RB(Hex($Offset))
$Offset += $sDByte
Next
For $i = 0 To $iCnt -1
$sData = _GetIconResource($hInst, "#" & Dec(_RB(StringRight($aHdr[$i], 4))), $RT_ICON)
If @error Then
_FreeLibrary($hInst)
Return SetError(6, 0, 0)
EndIf
$sHdr &= StringTrimLeft($sData, 2)
Next
_FreeLibrary($hInst)
$FO = FileOpen($sOutIco, $iCrt)
If $FO = -1 Then Return SetError(7, 0, 0)
$FW = FileWrite($FO, $sHdr)
If $FW = 0 Then
FileClose($FO)
Return SetError(8, 0, 0)
EndIf
FileClose($FO)
Return SetError(0, 0, 1)
EndFunc ;==>_ExtractIconToFile
; ========================================================================================================
; Internal Helper Functions from this point on
; ========================================================================================================
Func _GetIconResource($hModule, $sResName, $iResType)
Local $hFind, $aSize, $hLoad, $hLock, $tRes, $sRet
$hFind = DllCall("kernel32.dll", "int", "FindResourceA", "int", $hModule, "str", $sResName, "long", $iResType)
If @error Or Not $hFind[0] Then Return SetError(1, 0, 0)
$aSize = DllCall("kernel32.dll", "dword", "SizeofResource", "int", $hModule, "int", $hFind[0])
If @error Or Not $aSize[0] Then Return SetError(2, 0, 0)
$hLoad = DllCall("kernel32.dll", "int", "LoadResource", "int", $hModule, "int", $hFind[0])
If @error Or Not $hLoad[0] Then Return SetError(3, 0, 0)
$hLock = DllCall("kernel32.dll", "int", "LockResource", "int", $hLoad[0])
If @error Or Not $hLock[0] Then
_FreeResource($hLoad[0])
Return SetError(4, 0, 0)
EndIf
$tRes = DllStructCreate("byte[" & $aSize[0] & "]", $hLock[0])
If Not IsDllStruct($tRes) Then
_FreeResource($hLoad[0])
Return SetError(5, 0, 0)
EndIf
$sRet = DllStructGetData($tRes, 1)
If $sRet = "" Then
_FreeResource($hLoad[0])
Return SetError(6, 0, 0)
EndIf
_FreeResource($hLoad[0])
Return $sRet
EndFunc
; Just a Reverse string byte function (smashly style..lol)
Func _RB($sByte)
Local $aX = StringRegExp($sByte, "(.{2})", 3), $sX = ''
For $i = UBound($aX) - 1 To 0 Step -1
$sX &= $aX[$i]
Next
Return $sX
EndFunc ;==>_RB
Func _LoadLibraryEx($sFile, $iFlag)
Local $aRet = DllCall("Kernel32.dll", "hwnd", "LoadLibraryExA", "str", $sFile, "hwnd", 0, "int", $iFlag)
Return $aRet[0]
EndFunc ;==>_LoadLibraryEx
Func _FreeLibrary($hModule)
DllCall("Kernel32.dll", "hwnd", "FreeLibrary", "hwnd", $hModule)
EndFunc ;==>_FreeLibrary
Func _FreeResource($hglbResource)
DllCall("kernel32.dll", "int", "FreeResource", "int", $hglbResource)
EndFunc ;==>_FreeResource
Func _ResourceEnumNames($hModule, $iType)
Local $aRet, $xCB
If Not $hModule Then Return SetError(1, 0, 0)
$xCB = DllCallbackRegister('___EnumResNameProc', 'int', 'int_ptr;int_ptr;int_ptr;int_ptr')
$aRet = DllCall('kernel32.dll', 'int', 'EnumResourceNamesW', 'ptr', $hModule, 'int', $iType, 'ptr', DllCallbackGetPtr($xCB), 'ptr', 0)
DllCallbackFree($xCB)
If $aRet[0] <> 1 Then Return SetError(2, 0, 0)
Return SetError(0, 0, 1)
EndFunc ;==>_ResourceEnumNames
Func ___EnumResNameProc($hModule, $pType, $pName, $lParam)
Local $aSize = DllCall('kernel32.dll', 'int', 'GlobalSize', 'ptr', $pName), $tBuf
If $aSize[0] Then
$tBuf = DllStructCreate('wchar[' & $aSize[0] & ']', $pName)
ReDim $aEN[UBound($aEN) + 1]
$aEN[0] += 1
$aEN[UBound($aEN) - 1] = DllStructGetData($tBuf, 1)
Else
ReDim $aEN[UBound($aEN) + 1]
$aEN[0] += 1
$aEN[UBound($aEN) - 1] = "#" & $pName
EndIf
Return 1
EndFunc ;==>___EnumResNameProc[/code][attach]745[/attach]
[url]http://bcn.bathome.net/s/tool/index.html?key=extractIcon[/url]
页:
[1]