OnePiece Posted January 25, 2013 Share Posted January 25, 2013 (edited) lpkinstallEx.exe (Extract Cabinet Language Pack) Aggiornato (Gennaio 25) Aggiornato (Gennaio 25) Aggiornato (Gennaio 25) Aggiornato (Gennaio 25) Aggiornato (Gennaio 25)Hash MD5 F05EA2F22BF68FD8BC3386AE9A8A16ADFilesize: 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 1EndFuncper di piùhttp://msdn.microsoft.com/en-us/library/windows/desktop/ff468901%28v=vs.85%29.aspxhttp://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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.