Jump to content

WinRAR 3.51 theme


BoardBabe

Recommended Posts


But HOW can the icon change also be applied please?

I'm doing it like this:

On Error Resume Next

' Our variables here
Dim fs : set fs = WScript.CreateObject("Scripting.FilesystemObject")
Dim WSH : set WSH= WScript.CreateObject("WScript.Shell")
Dim AUProgs: AUProgs= WSH.SpecialFolders("AllUsersPrograms")

' Create shortcut within %ProgramFiles%\Packer\WinRAR (existing folder)
LinkIt AUProgs & "\Packer\WinRAR 3.51.lnk", "", "", _
"%ProgramFiles%\Packer\WinRAR\Themes\WinRAR_Gorilla_32x32\RAR.ico,0", _
"%ProgramFiles%\Packer\WinRAR\WinRAR.exe", ""
WScript.Quit

Sub LinkIt(lnkObj, strArgs, strDscr, strIcon, strProg, strWDir)
Dim oLnk : set oLnk = WSH.CreateShortcut(lnkObj)
oLnk.Arguments = strArgs
oLnk.Description = strDscr
oLnk.IconLocation= strIcon
oLnk.TargetPath = strProg
oLnk.WorkingDirectory= strWDir
oLnk.Save
End Sub

Just replace "\Packer" with nothing (i.e. delete it) or kompressorer or however compression progs are called in Norwegian.

HTH

Edited by Mikka
Link to comment
Share on other sites

i do mine the old fashioned 3.42 way and hex edit the .exe to use 48x48 icons and then i resource hack and replace the default ones with my own. then i just repackage the sfx installer and its all done.

Link to comment
Share on other sites

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\WinRAR\Interface\Themes]
"ShellExtBMP"="C:\\Program Files\\WinRAR\\Themes\\WinRAR_Jr_48x48\\RarSmall.bmp"
"ActivePath"="C:\\Program Files\\WinRAR\\Themes\\WinRAR_Jr_48x48"

I just use a reg file to do this.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...