wazer

Quick Launch Classic 7 Tool 1.0.5

201 posts in this topic

Hello coucou

I've tried your file "Quick Launch EN-FR", but doesn't works for me!

When I use my 7QuickLaunch on my computer works like a charm !

But when I use with my silent installation - the langbar toolbar is really closed - but a Toolbar "Documents" appears... and the installation stucks on "Documents" and the installation fails :wacko::blink:

I'm looking where I've missing something!!

Regards

Hello myselfidem,

I noticed in yr post as well as in your file that the bellow 2 variables are a llways a same (Quick Launch) for all languages

$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\".
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

On the other hand, in my here above post and file , thes 2 variables are specific for each language.

French

   $path = "%AppData%\Microsoft\Internet Explorer\Lancement rapide\"
$text = "[CLASS:ToolbarWindow32; TEXT:Lancement rapide]"

English

   $path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

Moreover, pay attenntion of the recommandation in my here above post and file

1) You may copy all yr Quick Launch shortcuts to Windows7 DVD

for Windows
English
to %CDROM%\sources\$OEM$\$Docs\Default User\AppData\Roaming\Microsoft\Internet Explorer\
Quick Launch

for Windows
French
to %CDROM%\sources\$OEM$\$Docs\Default User\AppData\Roaming\Microsoft\Internet Explorer\
Lancement rapide

Therefore during the Windows 7 installation they will be copied to C:\Users\(UserName)\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch or \Lancement rapide

So, I f yr $path and $text were "Quick Launch" and you used my Lancement rapide it can't be successful.

Here bellow the files (purged from any unused code), where

QuickLaunch_EN-FR_(QL).au3 file is $path and $text are "Quick Launch"

QuickLaunch_EN-FR_(QL-INT).au3 file is $path and $text are specific for each language.

QuickLaunch_EN-FR(QL+QL-INT).zip

Regards

Edited by coucou
0

Share this post


Link to post
Share on other sites

THX coucou ! :rolleyes:

Now I've found the solution and works very fine! :thumbup

But it's needed to disable the LangBar before, and I see I must integrate the reg file inside install.wim.

Here are the files if you want try = 7Quick_Launch_Multilangues:

http://www.mediafire.../?kns27djwvkrj2

However the file is working with FRENCH VERSION and for others languages, it's needed to adapt the file like my example!

I don't know how to do without add personnal value manually!

Many thanks wazer!

 

;---------------------------------------------------------------------------
; AutoIt Version: 3.3.6.1
; Author: wazer
; Last Edited: 20/01/2011
; Script Function: Ajouter la barre des tâches "Quick Launch" pour Windows 7
;---------------------------------------------------------------------------
Opt('TrayIconDebug', 1)
sleep(10)

; Adjonction et modifications des entrées du registre.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2','Settings',"REG_BINARY","28000000ffffffff02000000030000003e0000004e000000feffffffce030000920600001c040000")

; $Lang = RegRead("HKEY_CURRENT_USER\Control Panel\International", "sLanguage")
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
$title = "Nouvelle barre d’outils - Choisir un dossier"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "Applications en cours d’exécution"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

Select
; Case $Lang = "FRA";French
Case $Lang = "fr-FR";French
$title = "Nouvelle barre d’outils - Choisir un dossier"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "Applications en cours d’exécution"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Case $Lang = "NL; Dutch
Case $Lang = "nl-NL"; Dutch
$title = "Nieuwe werkbalk - Selecteer een map"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Actieve toepassingen]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Case $Lang = "ENU"; English
Case $Lang = "en-US"; English
$title = "New Toolbar - Choose a folder"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Case $Lang = "DAN"; Danish
Case $Lang = "da-DK"; Danish
$title = "Ny værktøjslinje - vælg en mappe"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Programmer, der kører]"
$toolbartext = "v{UP}{ENTER}"
$toolbartitle = "v{ENTER}"

; Case $Lang = "SE"; Swedish
Case $Lang = "se-SE"; Swedish
$title = "Nytt verktygsfält - välj en mapp"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Program som körs]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Case $Lang = "NO"; Norwegian
Case $Lang = "nb-NO"; Norwegian
$title = "Ny verktøylinje - velg en mappe"
$path = "%AppData%\Roaming\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Kjører programmer]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"
EndSelect

; Déverrouiller la barre des tâches
_ToggleTaskbarLock()
; Création de la barre des tâches "Quick Launch"
_TaskToolbarWin7("Shell:Quick Launch")

; Obtention de l'emplacement de la barre des tâches "Quick Launch"
While 1
Sleep(100)
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
If Not @error Then ExitLoop
WEnd
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
; Cacher l'affichage du texte pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartext)
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
; Cacher l'affichage du titre pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartitle)
; Déplacement de la barre des tâches "Quick Launch"
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")
MouseClickDrag("left", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 5, $TaskBar_CenterHeight, 0)
; Déplacement de la barre des "Applications en cours d'exécution"
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $programs)
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

; Verrouiller la barre des tâches
_ToggleTaskbarLock()


Func _TaskToolbarWin7($toolbardir)
MouseClick("right", 0, @DesktopHeight)
Send("{UP 8}{RIGHT}{DOWN 4}{ENTER}")
WinActive($title)
sleep(1000)
ControlSetText($title, "", "Edit1", $path)
sleep(1000)
ControlClick($title, "", "Button1")
EndFunc ;==>_TaskToolbarWin7


Func _ToggleTaskbarLock()
MouseClick("right", 0, @DesktopHeight)
Send("{UP}{UP}{ENTER}")
EndFunc ;==>_ToggleTaskbarLock


Enjoy!

*Edit: If you need help to integrate reg files inside your image install.wim, you can read the French guide:

Editer le registre dans une image WIM

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

Hello wazer! :rolleyes:

Quick Launch classic for Windows 7 French version working fine for me.

I can launch the file on my computer or with unattended installation successfuly!

7QuickLaunch-FR.au3

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=wazer
#AutoIt3Wrapper_Res_Description=Quick Launch Classic win7 x86/x64 - FR
#AutoIt3Wrapper_Res_LegalCopyright=wazer
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;---------------------------------------------------------------------
; AutoIt Version: 3.3.6.1
; Author: wazer
; Quick Launch version classique pour Windows 7
; Language:1036 - French
; Script Function: Ajouter la barre d'outils "Quick Launch"
;---------------------------------------------------------------------

Opt('TrayIconDebug', 1)
sleep(10)

; Modifications des entrées du registre.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2','Settings',"REG_BINARY","28000000ffffffff02000000030000003e0000004e000000feffffffce030000920600001c040000")

$title = "Nouvelle barre d'outils - Choisir un dossier"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d'exécution]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Déverrouiller la barre des tâches
_ToggleTaskbarLock()
; Création de la barre d'outils "Quick Launch"
_TaskToolbarWin7("Shell:Quick Launch")
; Détermination de l'emplacement de la barre d'outils "Quick Launch"
While 1
Sleep(100)
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
If Not @error Then ExitLoop
WEnd
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
; Cacher l'affichage du texte pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartext)
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
; Cacher l'affichage du titre pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartitle)
; Déplacement de la barre d'outils "Quick Launch"
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")
MouseClickDrag("left", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 5, $TaskBar_CenterHeight, 0)
; Déplacement des "Applications en cours d'exécution"
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $programs)
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

; Verrouiller la barre des tâches
_ToggleTaskbarLock()

Func _TaskToolbarWin7($toolbardir)
MouseClick("right", 0, @DesktopHeight)
Send("{DOWN}{RIGHT}{UP}{ENTER}")
WinActive($title)
sleep(1000)
ControlSetText($title, "", "Edit1", $path)
sleep(1000)
ControlClick($title, "", "Button1")
EndFunc ;==>_TaskToolbarWin7

[Func _ToggleTaskbarLock()
MouseClick("right", 0, @DesktopHeight)
Send("{UP}{UP}{ENTER}")
EndFunc ;==>_ToggleTaskbarLock

Thanks coucou for your support!

Many thanks for the code!

Download 7QuickLaunch_Classic-FR.zip

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

Hi all!

I've tested a new file for 7QuickLaunch-INT!

Works really fine with French language, but it's needed to test for others languages if it's OK!

Include: en-US;fr-FR;nl-NL;da-DK;se-SE;nb-NO

The TaskbarPinnedList will disappear after the reboot!

7QuickLaunch-INT.au3

 

;------------------------------------------------------------------
;AutoIt Version: 3.3.6.1
;Author: Andrew Calcutt, wazer
;Last Edited: 23/01/2011
;Script Function: Adds Quick Launch Toolbar
;------------------------------------------------------------------
Opt('TrayIconDebug', 1)
sleep(10)

;Adding Reg Entries.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2','Settings',"REG_BINARY","28000000ffffffff02000000030000003e0000004e000000feffffffce030000920600001c040000")

;$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

Select
;Case $Lang = French
Case $Lang = "fr-FR"
$title = "Nouvelle barre d'outils - Choisir un dossier"
$programs = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d'exécution]"
;Case $Lang = English
Case $Lang = "en-US"
$title = "New Toolbar - Choose a folder"
$programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
;Case $Lang = Dutch
Case $Lang = "nl-NL"
$title = "Nieuwe werkbalk - Selecteer een map"
$programs = "[CLASS:MSTaskListWClass; TEXT:Actieve toepassingen]"
;Case $Lang = Danish
Case $Lang = "da-DK"
$title = "Ny værktøjslinje - vælg en mappe"
$programs = "[CLASS:MSTaskListWClass; TEXT:Programmer, der kører]"
$toolbartext = "v{UP}{ENTER}"
$toolbartitle = "v{ENTER}"
;Case $Lang = Swedish
Case $Lang = "se-SE"
$title = "Nytt verktygsfält - välj en mapp"
$programs = "[CLASS:MSTaskListWClass; TEXT:Program som körs]"
;Case $Lang = Norwegian
Case $Lang = "nb-NO"
$title = "Ny verktøylinje - velg en mappe"
$programs = "[CLASS:MSTaskListWClass; TEXT:Kjører programmer]"
EndSelect

;Unlock Taskbar
_ToggleTaskbarLock()
;Create Quicklaunch Toolbar
_TaskToolbarWin7("Shell:Quick Launch")
;Get Quick Launch current postion
While 1
Sleep(100)
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
If Not @error Then ExitLoop
WEnd
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
;Hide "Quick Launch" toolbar text
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartext)
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
;Hide "Quick Launch" toolbar title
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartitle)
;Move "Quick Launch" toolbar
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")
MouseClickDrag("left", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 5, $TaskBar_CenterHeight, 0)
;Move "Current Apps" bar
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $programs)
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

;Lock Taskbar
_ToggleTaskbarLock()

Func _TaskToolbarWin7($toolbardir)
MouseClick("right", 0, @DesktopHeight)
Send("{DOWN}{RIGHT}{UP}{ENTER}")
WinWaitActive($title)
sleep(1000)
ControlSetText($title, "", "Edit1", $path)
sleep(1000)
ControlClick($title, "", "Button1")
EndFunc ;==>_TaskToolbarWin7

Func _ToggleTaskbarLock()
MouseClick("right", 0, @DesktopHeight)
Send("{UP}{UP}{ENTER}")
EndFunc ;==>_ToggleTaskbarLock


Downlaod for testing:

7QuickLaunch-INT

Thanks to report if it's works for others languages!

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

7QuickLaunch-INT Works fine for me myselfidem en-US :thumbup

in fact I run a 2nd script to pin something else right after this and no problems.

0

Share this post


Link to post
Share on other sites

7QuickLaunch-INT Works fine for me myselfidem en-US :thumbup

in fact I run a 2nd script to pin something else right after this and no problems.

Nice! :rolleyes:

Thanks maxXPsoft

I've just made one editing and file is updated:

 ;Case $Lang = French
Case $Lang = "fr-FR"
$title = "Nouvelle barre d’outils - Choisir un dossier"
$programs = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d’exécution]"

Maybe it would be interresting to add this file 7QuickLaunch.exe inside your nice software Se7en_UA - with SP1 Injection

But, of course it's needed more tests for Italian, etc... or others languages!

Regards

0

Share this post


Link to post
Share on other sites

Hi all!

I've tested a new file for 7QuickLaunch-INT!

Works really fine with French language, but it's needed to test for others languages if it's OK!

Include: en-US;fr-FR;nl-NL;da-DK;se-SE;nb-NO

The TaskbarPinnedList will disappear after the reboot!

7QuickLaunch-INT.au3

 

Thanks to report if it's works for others languages!

I know that :)?

I made the taskbarpinnedlist disapear after reboot with my script :).

You modification does not work if taskbar is unlocked before you run it. You need to lock it first, we will have to implent a taskbar lock check to the script.

0

Share this post


Link to post
Share on other sites

I know that :)?

I made the taskbarpinnedlist disapear after reboot with my script :).

You modification does not work if taskbar is unlocked before you run it. You need to lock it first, we will have to implent a taskbar lock check to the script.

Hello wazer! :rolleyes:

Also with mine!

I think it's made with the first value inside the script (Lock Taskbar):

 

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"TaskbarSizeMove"=dword:00000000


RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ Advanced", "TaskbarSizeMove", "REG_DWORD", "0")

Lock Taskbar

In fact, I've corrected your mistake!

I've made also ql_win7_FRENCH_NO_REBOOT.au3 without reboot and TaskbarPinnedList disappear!

Have you tested 7QuickLaunch-INT.exe?

Works fine for me.

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

I know that :)?

I made the taskbarpinnedlist disapear after reboot with my script :).

You modification does not work if taskbar is unlocked before you run it. You need to lock it first, we will have to implent a taskbar lock check to the script.

Hello wazer! :rolleyes:

Also with mine!

I think it's made with the first value inside the script (Lock Taskbar):

 

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"TaskbarSizeMove"=dword:00000000


RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ Advanced", "TaskbarSizeMove", "REG_DWORD", "0")

Lock Taskbar

In fact, I've corrected your mistake!

I've made also ql_win7_FRENCH_NO_REBOOT.au3 without reboot and TaskbarPinnedList disappear!

Have you tested 7QuickLaunch-INT.exe?

Works fine for me.

No what your linking to is for XP, that aint for windows 7.

No the lock taskbar is just a toggle nothing else.

Just because you regwrite the taskbarsizemove, it dosnt magical shows as locked in windows 7 :). Therefor for the future we need to implent taskbar lock check. So everybody can run it whenever they are doing unattended or just have a normal os and want old quicklaunch back :)

Sorry not yet, but will check your file :).

Keep up the good activty and i think soon we will have a final version for all pleasures :).

Edited by wazer
0

Share this post


Link to post
Share on other sites

The value works also with Windows 7!

The value is set to Lock Taskbar inside the script, even if it's not the case (because a reboot is needed to see the changes for TaskbarPinnedList).

I need to check the file with the Taskbar Unlocked!!

My file works on my desktop and with unattended installation (7QuickLaunch-INT.exe)!

What it's really needed. Add a value to check. I think it's not usefull! But I can try to look for that.

I've spend many time to have the file working fine. Believe me!

The real problem is the Langbar. If the Langbar isn't closed, Quick Launch can't install with my Windows 7 French version!

Is it the case for English version?

Thanks for your support! ;)

*Edit: Tested now on my computer (not silent install)=> If the Taskbar is Unlocked the file doesn't works! The Taskbar need to be Locked first and the file works fine!

New challenge :rolleyes:

*Edit 2: Maybe we can use Select and case with AutoIT to check if the Taskbar is set to Lock and lock this one if it's needed?

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

The value works also with Windows 7!

The value is set to Lock Taskbar inside the script, even if it's not the case (because a reboot is needed to see the changes for TaskbarPinnedList).

I need to check the file with the Taskbar Unlocked!!

My file works on my desktop and with unattended installation (7QuickLaunch-INT.exe)!

What it's really needed. Add a value to check. I think it's not usefull! But I can try to look for that.

I've spend many time to have the file working fine. Believe me!

The real problem is the Langbar. If the Langbar isn't closed, Quick Launch can't install with my Windows 7 French version!

Is it the case for English version?

Thanks for your support! ;)

*Edit: Tested now on my computer (not silent install)=> If the Taskbar is Unlocked the file doesn't works! The Taskbar need to be Locked first and the file works fine!

New challenge :rolleyes:

The script appears to work here, only title & text needs to be manually unticked.

Great progress :thumbup

0

Share this post


Link to post
Share on other sites

The script appears to work here, only title & text needs to be manually unticked.

Great progress :thumbup

Thanks for your report!

Have you given a new name to the file 7QuickLaunch-INT.exe like 7QuickLaunch.exe?

Have you an Windows 7 English version?

Maybe a program is running on background when you try to install the 7Quick Launch?

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

The script appears to work here, only title & text needs to be manually unticked.

Great progress :thumbup

Thanks for your report!

Have you given a new name to the file 7QuickLaunch-INT.exe like 7QuickLaunch.exe?

Have you an Windows 7 English version?

Maybe a program is running on background when you try to install the 7Quick Launch?

as he mention with the title and text you forgot to add it, i already added it.

You left it out?.

$toolbartext = "{down}{down}{down}{ENTER}"

$toolbartitle = "{down}{down}{down}{down}{ENTER}"

News is that im working on vb.net that will check if its locked or not. And then apply all changes without the need for reboot at all.

Edited by wazer
0

Share this post


Link to post
Share on other sites

The script appears to work here, only title & text needs to be manually unticked.

Great progress :thumbup

Thanks for your report!

Have you given a new name to the file 7QuickLaunch-INT.exe like 7QuickLaunch.exe?

Have you an Windows 7 English version?

Maybe a program is running on background when you try to install the 7Quick Launch?

as he mention with the title and text you forgot to add it, i already added it.

You left it out?.

$toolbartext = "{down}{down}{down}{ENTER}"

$toolbartitle = "{down}{down}{down}{down}{ENTER}"

News is that im working on vb.net that will check if its locked or not. And then apply all changes without the need for reboot at all.

No!

These values are set at first like variables for much languages (same values)!

I keep only Danish because the values aren't the same!

Check my file please!

*Edit: Good news (your working on vb.net)! Thanks. ;)

*Edit 2: Maybe the problem will appear with Danish and it will be necessary to add another variable?

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

The script appears to work here, only title & text needs to be manually unticked.

Great progress :thumbup

Thanks for your report!

Have you given a new name to the file 7QuickLaunch-INT.exe like 7QuickLaunch.exe?

Have you an Windows 7 English version?

Maybe a program is running on background when you try to install the 7Quick Launch?

No file name change, running 64bit eng ver. Nothing special running when started the exe.

Good to see you fellas working together on such a project MS thinks little of.

0

Share this post


Link to post
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.