Jump to content
OnePiece

lpkinstallEx.exe (Extract Cabinet Language Pack)

Recommended Posts

lpkinstallEx.exe (Extract Cabinet Language Pack)


tabdownload.png Aggiornato (Gennaio 25)
tabdownload.png Aggiornato (Gennaio 25)
tabdownload.png Aggiornato (Gennaio 25)
tabdownload.png Aggiornato (Gennaio 25)
tabdownload.png 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 by OnePiece

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...