lpkinstallEx.exe (Extract Cabinet Language Pack)

[OnePiece]

lpkinstallEx.exe (Extract Cabinet Language Pack)

Aggiornato (Gennaio 25)
Aggiornato (Gennaio 25)
Aggiornato (Gennaio 25)
Aggiornato (Gennaio 25)
Aggiornato (Gennaio 25)
Hash MD5 F05EA2F22BF68FD8BC3386AE9A8A16AD
Filesize: 370 KB (379127 byte)

per quelli che non vogliono includere il reshaker.exe nei loro exe, ecco un esempio (codice del lpkinstallEx.exe)

;;OnePiece#RequireAdminGlobal $aResName[1001][2] = [[0,1000]]Local $lpkPath, $lpkFilename, $lpkBinary, $hFileLocal $lpkPath = FileOpenDialog("seleziona Language Pack Installer", @DesktopDir & "\", "Language Pack Installer (*.exe)", 1 + 4)If @Error Then    MsgBox(4096, "", "Nessun file di selezionato")    ExitEndIf$lpkFilename = FileGetVersion($lpkPath, "OriginalFilename")If $lpkFilename = "" Then $lpkFilename = "LanguagePackInstaller.cab"$lpkFilename = StringTrimRight($lpkFilename, 4) & ".cab"$lpkBinary = _ResourceGetEx("", 10, 0, 0, $lpkPath)If @Error Then    MsgBox(16, "Error", @Error)    ExitEndIf$hFile = FileOpen(@DesktopDir & "\" & $lpkFilename, 26)FileWrite($hFile, $lpkBinary)FileClose($hFile);;;; http://msdn.microsoft.com/en-us/library/windows/desktop/ff468901%28v=vs.85%29.aspx;;;; http://www.autoitscript.com/forum/topic/51103-resources-udf/Func _ResourceGetEx($ResName, $ResType = 10, $ResLang = 0, $iFlags = 0, $DLL = -1) ; $RT_RCDATA = 10    Local $hInstance, $TypeResName = "wstr", $InfoBlock, $GlobalMemoryBlock, $MemoryPointer, $ResSize, $ResData, $aResult    If $DLL = -1 Then        $hInstance = DllCall("kernel32.dll", "handle", "GetModuleHandleW", "ptr", 0)    Else        $hInstance = DllCall("kernel32.dll", "handle", "LoadLibraryExW", "wstr", $DLL, "ptr", 0, "dword", 2)    EndIf    If @Error Or Not $hInstance[0] Then Return SetError(1, @Error, 0)    $hInstance = $hInstance[0]    If $ResName = "" Then        $aResName[0][0] = 0        _ResourceEnumNames($hInstance, $ResType)        If Not $aResName[0][0] Then Return SetError(3, 0, 0)        $ResName = $aResName[1][0]        If $aResName[1][1] Then $TypeResName = "int"    ElseIf StringIsDigit($ResName) Then        $ResName = "#" & Number($ResName)    EndIf    If $ResLang <> 0 Then        $InfoBlock = DllCall("kernel32.dll", "ptr", "FindResourceExW", "ptr", $hInstance, "int", $ResType, $TypeResName, $ResName, "WORD", $ResLang)    Else        $InfoBlock = DllCall("kernel32.dll", "ptr", "FindResourceW", "ptr", $hInstance, $TypeResName, $ResName, "int", $ResType)    EndIf    If @Error Or Not $InfoBlock[0] Then Return SetError(2, @Error, 0)    $InfoBlock = $InfoBlock[0]    $ResSize = DllCall("kernel32.dll", "dword", "SizeofResource", "ptr", $hInstance, "ptr", $InfoBlock)    If @Error Or Not $ResSize[0] Then Return SetError(3, @Error, 0)    $ResSize = $ResSize[0]    $GlobalMemoryBlock = DllCall("kernel32.dll", "ptr", "LoadResource", "ptr", $hInstance, "ptr", $InfoBlock)    If @Error Or Not $GlobalMemoryBlock[0] Then Return SetError(4, @Error, 0)    $GlobalMemoryBlock = $GlobalMemoryBlock[0]    $MemoryPointer = DllCall("kernel32.dll", "ptr", "LockResource", "ptr", $GlobalMemoryBlock)    If @Error Or Not $MemoryPointer[0] Then Return SetError(5, @Error, 0)    $MemoryPointer = $MemoryPointer[0]    If BitAND($iFlags, 1) = 1 Then        $ResData = DllStructGetData(DllStructCreate("char[" & $ResSize & "]", $MemoryPointer), 1)    ElseIf BitAND($iFlags, 2) = 2 Then        $ResData = DllStructGetData(DllStructCreate("wchar[" & $ResSize & "]", $MemoryPointer), 1)    Else        $ResData = DllStructGetData(DllStructCreate("byte[" & $ResSize & "]", $MemoryPointer), 1)    EndIf    If $DLL <> -1 Then DllCall("kernel32.dll", "bool", "FreeLibrary", "handle", $hInstance)    If @Error Then Return SetError(6, @Error, 0)    Return $ResDataEndFuncFunc _ResourceEnumNames($hModule, $iType)    Local $aRet, $hEnumProc = DllCallbackRegister('__EnumResNamesProc', 'int', 'ptr;ptr;ptr;long_ptr')    If IsString($hModule) Then        $hModule = DllCall("kernel32.dll", "handle", "LoadLibraryExW", "wstr", $hModule, "ptr", 0, "dword", 2)        If @Error Or $hModule[0] = 0 Then Return SetError(1, DllCallbackFree($hEnumProc), 0)        $aRet = DllCall("kernel32.dll", "int", "EnumResourceNamesW", "ptr", $hModule[0], "int", $iType, "ptr", DllCallbackGetPtr($hEnumProc), "long_ptr", 0)        DllCallbackFree($hEnumProc)        DllCall("kernel32.dll", "bool", "FreeLibrary", "handle", $hModule[0])    Else        $aRet = DllCall("kernel32.dll", "int", "EnumResourceNamesW", "ptr", $hModule, "int", $iType, "ptr", DllCallbackGetPtr($hEnumProc), "long_ptr", 0)        DllCallbackFree($hEnumProc)    EndIfEndFuncFunc __EnumResNamesProc($hModule, $pType, $pName, $lParam)    #forceref $hModule, $pType, $lParam    Local $aRet = DllCall("kernel32.dll", "int", "lstrlenW", "ptr", $pName)    If @Error Or Not $aRet[0] Then        $aResName[0][0] += 1        $aResName[$aResName[0][0]][0] = Number($pName)        $aResName[$aResName[0][0]][1] = 1    Else        $aResName[0][0] += 1        $aResName[$aResName[0][0]][0] = DllStructGetData(DllStructCreate("wchar[" & ($aRet[0] + 1) & "]", $pName), 1)    EndIf    If $aResName[0][0] = $aResName[0][1] Then        $aResName[0][1] *= 2        ReDim $aResName[$aResName[0][1]  + 1][2]    EndIf    Return 1EndFunc

per di più
http://msdn.microsoft.com/en-us/library/windows/desktop/ff468901%28v=vs.85%29.aspx
http://www.autoitscript.com/forum/topic/51103-resources-udf/
http://www.autoitscript.com/forum/topic/98712-winapiex-udf/

Ciao a tutti.

Edited January 25, 2013 by OnePiece