myselfidem

Hello! The project is still in development by Legolash2o! You can try the new W7T085-20B Windows 7 Toolkit v0.8.5 Beta Cheers

Hello wazer! Reg key to close the Langbar: For me the QuickLaunch like I've made works fine! Many thanks for the code. Cheers

Hello! You can try this script to keep the Langbar and your customized Taskbar; or use mine QuickLaunchNew.exe. The Langbar needs to be on the Taskbar with this script. You need first to download AutoIt 3.3.6.1 and intall the program: AUTOIT If the script works for you, you can compile this one to make an exe file! If you have only English or another language just set the language you need! 7QuickLaunch.au3 ;---------------------------------------------- ;AutoIt Version: 3.3.6.1 ;Author: Andrew Calcutt, wazer ;Last Edited: 01/25/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", "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", "PreferredUILanguages") If @error = 0 Then ; registry ValueName exist Else ; registry ValueName NOT exist $Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages") EndIf $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 = English Case $Lang = "en-US" $title = "New Toolbar - Choose a folder" $programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]" ;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]" EndSelect ;Unlock Taskbar _ToggleTaskbarLock() ;Disable Langbar to allows installing Quick Launch _DisableLangbar() ;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 _DisableLangbar() MouseClick("right", 0, @DesktopHeight) Send("{DOWN}{RIGHT}{UP}{UP}{ENTER}") EndFunc ;==>_DisableLangbar 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 ;Adding Reg Entrie to Add Langbar to next reboot. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "4") RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\MSUTB", "ShowDeskBand", "REG_DWORD", "1") If you do not want to reboot, just reduce at the top of your Desktop the Langbar and you will see this one on the Taskbar! I hope that can help ! Works really fine for me (French language and much languages added inside the script). Thanks to give a report. Cheers *Edit: How to compile a script .au3 to exe file

@blue4603 Happy to see (on Twitter) that you are working for the next release and add a new function for 7Customizer: Components to remove! Regards blue4603 (7Customizer) on Twitter

Have you integrated the drivers needed for your computer (Chipsets, etc...) inside your CD Windows XP made with nLite?

Hello! You can find help here: Components to keep

Hello! I've made a new QuickLaunchNew.au3 (include many languages) and tested with an unattended install successfuly! I've just made some little changes (little lighter!): Works really fine for me! No need to close the Langbar first with a reg file (or injecting inside install.wim) during the silent installation and the Langbar is keeped with your settings! You will see the Langbar on the Taskbar after the reboot. Download for testing: QuickLaunchNew If you launch the file QuickLaunchNew.au3 (or others AutoIT files .au3) on your Desktop, take care to do that on an empty aera! Because if on the background (behind the file .au3, right click contextmenu) there is another file and the mouse arrow is on it, you may have errors, using AutoIT => Run the script! Don't forget to close previous QuickLanch before, if you make the test on your computer (Langbar need to be on the Taskbar with this script!). Cheers

Thanks a lot friend! Muchas gracias amigo!

I've uploaded QuickLaunchLangbar.au3 inside the folder Quick Launch. You don't see this one? Have you tried QuickLaunchLangbar.au3? *Edit: Download for testing: Quick Launch *Edit 2: In fact you will see the Langbar at the top of your Desktop and after the reboot the Langbar must be on the Taskbar or you can reduce from the Desktop without rebooting. *Edit 3: QuickLaunchLangbar.au3 replaced by QuickLaunchNew.au3

@wazer! I've found a workaround to disable the Langbar and it's needed to reboot to see the Langbar again! Tested and works fine for me: Download for testing => QuickLaunchLangbar.au3 QuickLaunch.zip ;---------------------------------------------- ;AutoIt Version: 3.3.6.1 ;Author: Andrew Calcutt, wazer ;Last Edited: 01/25/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", "PreferredUILanguages") If @error = 0 Then ; registry ValueName exist Else ; registry ValueName NOT exist $Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages") EndIf $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 = English Case $Lang = "en-US" $title = "New Toolbar - Choose a folder" $programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]" ;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 = 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() ;Disable Langbar _DisableLangbar() ;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) Func _DisableLangbar() MouseClick("right", 0, @DesktopHeight) Send("{DOWN}{RIGHT}{UP}{UP}{ENTER}") EndFunc ;==>_DisableLangbar ;Lock Taskbar _ToggleTaskbarLock() Func _TaskToolbarWin7($path) 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 ;Adding Reg Entries to Add Langbar to next reboot. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ExtraIconsOnMinimized", "REG_DWORD", "0") RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "4") RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "Label", "REG_DWORD", "1") RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\MSUTB", "ShowDeskBand", "REG_DWORD", "1") @coucou! You can try the new QuickLaunchLangbar.exe! (Keep only the values you need for you to make it lighter)! No need to close the Langbar, the QuickLaunch will be installed on the left and after the reboot you will see your same Langbar customized on the Taskbar! Many thanks to report the results! Cheers *Edit: QuickLaunchLangbar.au3 replaced by QuickLaunchNew.au3

Tested works, the Quick Launch bar is created and move to the left You can also just point the LangBar and drag it to the toolbar.Anyway, i still use mine, much lighter (purged from any unused code) and just do the main job (creating a QuickLaunch toolbar without moving it to the left). Regards Thanks coucou! The way is to add many languages. Of course if I use only mine with French language only; the file is much lighter! I'm looking how to close the Langbar first with AutoIt 3.3.6.1! Cheers

Hello! Could you try to close first the Langbar on your computer and launch QuickLaunch.au3 and tell us what is the result? Thanks After you can Enable your Langbar! Langbar on Taskbar

Yes coucou! It's needed to close the Langbar first! wazer is looking for a workaround about this problem! I've made an successfull installation because I've injected the reg keys to close the Langbar first! Thanks for your support! Regards *Edit: You can find help reading my post about how to close the Langbar for silent installation: http://www.msfn.org/...04/page__st__40

OK coucou! I've made the changes you ask me! Here is the new file working for me with French version (tested from my desktop): For testing: Quick_Launch.zip Regards *Edit: I've also made a new one: QuickLaunch.exe with some changes! Works fine for me (from my Desktop=languages include) *Edit 2: Tested with silent install QuickLaunch.exe. Works really fine for me (languages include).

During an silent install the Langbar needs to be closed! It is your case? Have you tried on your computer? Check if the Langbar is closed and let me know! *Edit: Please download the last file 7QuickLaunch-INT.exe and you will see inside that the reg file is: *Edit: I've made a new 7QuickLaunch-INT.exe and set first the value for English language! Tested for French version and works fine for me: For testing: New QL.zip

1) Set inside => $OEM$\$$\System32\oeminfo.ini Create your file oeminfo.ini, like this: 2) And for your personal values create a file oobeinfo.ini and set this one inside: $OEM$\$$\System32\oobe\oobeinfo.ini oobeinfo.ini Adapt to your needs!

Have you tested 7QuickLaunch-INT.exe?

@coucou You don't rememeber your post, about Lancement rapide? http://www.msfn.org/...04/page__st__20 7QuickLaunch-INT.exe works like a charm for me, on my desktop or with unattended installation with Windows 7 French locale version ( with fr-CH or fr-FR) I don't really need to have others languages inside my Windows 7! If you want you can choose to integrate another language with also UI interface and install also the language inside boot.wim 1 and boot.wim 2 If I've time I will test to add English inside Windows 7 French version to try to give you some help, if I can! *Edit: It would be interresting to tell me what is writed inside your registry after your installation with Windows 7 Multilangues! 7QuickLaunch-INT.zip

Hello coucou! The values for the reg files aren't the same for French language inside the registry: [HKCU\Control Panel\International] and [HKCU\Control Panel\Desktop\MuiCached] Because for French we can have: FRS (French-Switzerland) or others values for French-Belgium; French-French! Same thing for others languages! Example, I can install my Windows7 French with UserLocale value with French: "fr-FR" or "fr-CH" For this reason it's better to read the value with AutoIT inside: It's not needed to rename the file Quick Launch as Lancement rapide for French Windows 7 locale version! Works fine for me with the value Quick Launch! Of course I think it works for you because you have renammed the folder Quick Launch => Lancement rapide and set this one on your DVD!! I'm guessing that if your installation is with English the value en-US read inside the registry will install Quick Launch with the values for English with 7QuickLaunch-INT.exe!

I've tested now after installing NET Framework 4! The Langbar isn't closed if this one is on the taskbar. Unable to install the path for the Quick Launch! Doesn't work even if I close first the Langbar. Tested on my Windows 7 Ultimate French version x86. Error.txt: script.exe is denied The program stucks on the window to write the path for the Quick Launch (the path can't be write [send]).

Many thanks wazer, but it's needded to install NET Framework 4 befor! Regards Link to download Net Farmework 4 Standalone: Microsoft .NET Framework 4 (Standalone Installer) I will install and I give you a report.

Thanks! Have you first close the Langbar (right click on the Langbar and close, not Disable with the option Toolbar) and check if the Taskbar is Locked?

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?

Yes, it's another possibility, but all the versions will be displayed during the installation! It will not be fully uanttended! You can also keep only ONE IMAGE (HOMEPREMIUM) with this batch file! All others images will be deleted! And after you can use 7Customizer. One_Image.cmd (en-US | fr-FR) => Example for Windows 7 x86 @echo off REM Title Export and save Windows 7 HOMEPREMIUM Title Sauvegarde de l'Image Windows 7 HOMEPREMIUM Color 0A CLS REM ==Launching process== echo ==Lancement du processus d'exportation des Images== echo. REM Deleting unwanted Images to have more space. REM Suppression des Images pour un gain d'espace. echo. REM Adapt to your choice => Windows 7 HomePremium index:3 REM A adapter selon votre choix:exemple => Windows 7 HomePremium index:3 echo. REM You will keep only one Image = Windows 7 HomePremium with a new index:1 REM Il ne restera plus qu'une seule Image = Windows 7 HomePremium avec un nouvel index:1 echo. REM Adapt the files names and the paths to your needs. REM Adapter les chemins des dossiers selon vos besoins. echo. REM ==Exporting Image Windows 7 HomePremium x86== echo ==Exportation de l'Image Windows 7 HomePremium x86== echo. "C:\Program Files\Windows AIK\Tools\x86\imagex.exe" /export C:\Win7\sources\install.wim 3 C:\Win7\sources\installnew.wim "Windows 7 HOMEPREMIUM" echo. REM ==Deleting unwanted files== echo ==Suppression des dossiers et des fichiers inutiles== echo. DEL /S /F /Q "C:\Win7\sources\install_Windows 7 HOMEBASIC.clg" DEL /S /F /Q "C:\Win7\sources\install_Windows 7 ULTIMATE.clg" DEL /S /F /Q "C:\Win7\sources\install_Windows 7 PROFESSIONAL.clg" DEL /S /F /Q "C:\Win7\sources\install_Windows 7 STARTER.clg" DEL /S /F /Q "C:\Win7\sources\install.wim" echo. REN "C:\Win7\sources\installnew.wim" "install.wim" echo. REM ==Select any key to quit==&pause>nul echo ==Appuyez sur n'importe qu'elle touche pour quitter==&pause>nul *Edit: After 7Customizer will see only one Image to customize!

Edit the file and change the name to HomePremium like I've explain at my last post! Don't forget to save the changes!