Share this post

Link to post

Share on other sites

ffdshow 0

ffdshow 0

This will check "Taskbar and Start Menu Properties->Taskbar->Auto-hide the taskbar" option in Windows (if it's not already checked):

Opt("TrayIconDebug",1)Opt("TrayAutoPause",0)Opt("MustDeclareVars",1)_TaskbarHidden()Func_TaskbarHidden(); 0 = Shown Or 1 = Hidden; Check if the registry involved in this tweak existDim$StuckRects2$StuckRects2=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2","Settings")If@errorThen; Probably the registry key/value name does not exist, so we will import the default from Windows 8RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2","Settings","REG_BINARY","0x28000000ffffffff02000000030000003e0000002800000000000000d80200000004000000030000")ElseIf$StuckRects2=""Then; The value data is blank and this will not set @error, so we will import the default from Windows 8RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2","Settings","REG_BINARY","0x28000000ffffffff02000000030000003e0000002800000000000000d80200000004000000030000")EndIf; Check if the taskbar is set to Auto-hide or notLocalConst$ABM_GETSTATE=0x00000004Local$aReturn$aReturn=DllCall('shell32.dll','uint','SHAppBarMessage','dword',$ABM_GETSTATE,'ptr*',0)If@errorThenReturnSetError(1,0,0)EndIfIfBitAND($aReturn[0],0x01)=0Then; If "Taskbar Properties->Taskbar->Auto-hide the taskbar" is unchecked Then; Set the taskbar to Auto-hideConst$HKCU=0x80000001Dim$objReg$objReg=ObjGet("winmgmts:{impersonationLevel=impersonate}root\default:StdRegProv")Dim$objWMI$objWMI=ObjGet("winmgmts:{impersonationLevel=impersonate}root\cimv2"); Adjust the first bit of the taskbar settingsDim$arrVal[1]$objReg.GetBinaryValue($HKCU,"Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2","Settings",$arrVal)$arrVal[8]=BitOR(BitAND($arrVal[8],0x07),0x01)$objReg.SetBinaryValue($HKCU,"Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2","Settings",$arrVal); Restart Windows Explorer process (explorer.exe) so the settings to take effectRunWait('"'&@ComSpec&'"'&" /c "&'taskkill /f /im '&"explorer.exe","",@SW_HIDE)RunWait('"'&@ComSpec&'"'&" /c "&'start '&@WindowsDir&"\explorer.exe","",@SW_HIDE)Sleep(500)EndIfEndFunc;==>_TaskbarHidden