Make Portable FHGaacEnc From Installer |
![]() ![]() |
Make Portable FHGaacEnc From Installer |
Aug 1 2012, 07:45
Post
#1
|
|
|
Group: Members Posts: 14 Joined: 1-August 12 Member No.: 101914 |
This is a sibling script to the one I did for Qaac & QTaacEnc however ever so slightly more original.
This is written in AutoIt, and will extract the required files from the WinAMP installer. This depends on having 7-zip ether installed on your system or extracted to a folder somewhere on your system. You will still need to download FHGaacEnc and install the VC2008 Runtimes...but it does help simplify things. http://www.mediafire.com/?4spc7is4l36wvi6 Source: CODE Dim $Files[3] = [ 'enc_fhgaac.dll' , 'libmp4v2.dll' , 'nsutil.dll' ]
; Handle 7-zip If FileExists( @ScriptDir & '\7z.exe' ) Then $Path_7zip = @ScriptDir Else $Path_7zip = RegRead( 'HKEY_LOCAL_MACHINE\SOFTWARE\7-Zip', 'Path' ) If $Path_7zip = '' OR FileExists( $Path_7zip & '\7z.exe' ) = 0 Then While 1 $7zip = FileOpenDialog( 'Select 7-zip Executable.' , '' , 'Executables (*.exe)' , 1 + 4 ) If @Error Then MsgBox( 4096 , 'Error:' , 'No Executable Chosen.' ) Exit Else $Path_7zip = StringLeft( $7zip , StringInStr ( $7zip , '\' , 0 , -1 ) - 1 ) If FileExists( $Path_7zip & '\7z.exe' ) Then ExitLoop MsgBox( 4096 , 'Error:' , '7z.exe Not Present.' ) EndIf WEnd EndIf EndIf ; Handle Installers $Installer = '' $search = FileFindFirstFile( @ScriptDir & '\winamp*.exe' ) If NOT @Error Then $Installer = @ScriptDir & '\' & FileFindNextFile( $search ) EndIf While 1 If $Installer = '' Then $Installer = FileOpenDialog( 'Select WinAMP Installer.' , '' , 'Executables (*.exe)' , 1 + 4 ) If @Error Then MsgBox( 4096 , 'Error:' , 'No Installer Chosen.' ) Exit EndIf EndIf ; Start Extracting Files For $Element In $Files RunWait( @ComSpec & ' /c 7z.exe e -y -r -o"' & @ScriptDir & '" "' & $Installer & '" ' & $Element , $Path_7zip , @SW_HIDE ) If NOT FileExists( @ScriptDir & '\' & $Element ) Then MsgBox( 4096 , 'Error:' , 'Installer Does Not Contain Required Files.' & @LF & @LF & 'Please Use Another Installer.' ) $Installer = '' ContinueLoop 2 EndIf Next ExitLoop WEnd MsgBox( 0 , 'Finished' , 'All files Processed.' ) |
|
|
|
Jan 10 2013, 07:59
Post
#2
|
|
|
Group: Members Posts: 14 Joined: 1-August 12 Member No.: 101914 |
Since I updated the one for Qaac & QTaacEnc I figured I might as well update this one as well.
This is a bit faster much like the other one...and requires the WinAMP installer. MediaFire Link to Script. |
|
|
|
![]() ![]() |
|
Lo-Fi Version | Time is now: 20th May 2013 - 17:13 |