Windows 7 - Icon Size Registry Tweak

ShopBunny · 02-17-2010

Quote: Originally Posted by reghakr

You have no choice, when you change the size of the icons the grid changes automatically.

You can manually set the spacing between icons very easily :

Quote:

rightclick desktop and go to "Personalization" page>Window color>advanced

from the dropdown box, you will see :

spacing between icons (horiz)
spacing between icon (vert)

From there you can manipulate the spacing to your liking.

mrquickly · 02-25-2010

@EricT
Thanks for the info

If've written an Batch script which does the change:

Code:

@echo off 
taskkill /im explorer.exe /f 
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Bags\1\Desktop" /v IconSize /t REG_DWORD /d 00000032 /f 
"%windir%\explorer.exe"

Strange is, that after a fresh installation and first login with a user the script doesn't works. You've first to logoff and than login again?! Otherwise there are no standard values in the key.

Would be very happy if someone could write an shell API script

mrquickly · 03-10-2010

Does andybody know a better way already?

Jackized · 07-29-2010

Hello, I too would love to be able to change the icon size in Windows 7 by the registry or script. Reason: We have over 2000 systems and having the ability to control ever little detail is nice. I still need to look at Group Policy. I have tried everything in this post and nothing works.

Amstramgram · 08-13-2010

Hello from France.
Thanks to this post informations, I've writen a little vbs script that autohide the taskbar and set the destop icons to small size.
How it works?
The script write an other script called "BarreDesTaches.vbs" in the temporary folder of Windows, add a registry entry in RunOnce to launch it on the next LogOn, and automatically LogOff.
Hope you enjoy!
L.

http://lamemelongueurdonde.com/blog/...eDesTaches.rar

Dwarf · 08-13-2010

Seems OK.

Here is the code for the script (remember that the author is French):

Code:

Option Explicit
'-------------------------------------------------------------------------------------------
'Récupération de l'emplacement de Windows
'-------------------------------------------------------------------------------------------
Dim oShell
Set oShell = CreateObject("Wscript.Shell")
Dim strWinDir
strWinDir = oShell.ExpandEnvironmentStrings("%SystemRoot%") 
'-------------------------------------------------------------------------------------------
'Ecriture du fichier BarreDesTaches.vbs dans le répertoire temporaire
'-------------------------------------------------------------------------------------------
Dim objFSO, objTextFile
Dim strDirectory, strFile, strText
strDirectory = strWinDir & "\TEMP"
strFile = "\BarreDesTaches.vbs"
strText = "const HKCU = &H80000001" _
& VbCRLf & _
"dim oWMIReg"_
& VbCrLf & _
"set oWMIReg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")"_
& VbCrLf & _
"dim iValueArray()"_
& VbCrLf & _
"oWMIReg.GetBinaryValue HKCU, ""Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2"", ""Settings"", iValueArray"_
& VbCrLf & _
"iValueArray(8) = 3"_
& VbCrLf & _
"oWMIReg.SetBinaryValue HKCU, ""Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2"", ""Settings"", iValueArray"_
& VbCrLf & _
"oWMIReg.SetDWORDValue HKCU, ""Software\Microsoft\Windows\Shell\Bags\1\Desktop"", ""IconSize"", 30"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, 2, True)
objTextFile.WriteLine(strText)
objTextFile.Close

'-------------------------------------------------------------------------------------------
'Lancement du fichier BarreDesTaches.vbs au prochain LogOn via Runeonce
'-------------------------------------------------------------------------------------------
const HKey_LOCAL_MACHINE = &H80000002
dim oWMIReg
set oWMIReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") 
oWMIReg.SetStringValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "BarreDesTaches", strWinDir&"\Temp\BarreDesTaches.vbs"
'-------------------------------------------------------------------------------------------
'LogOff
'-------------------------------------------------------------------------------------------
dim objExec
Set objExec = oShell.Exec("logoff")
WScript.Quit

Windows 7 - Icon Size Registry Tweak

Icon Size Registry Tweak problems?