maxrealqnx Posted July 3, 2010 Posted July 3, 2010 Hi my friends How can i create any shortcut at the quicklaunch for windows 7 ? c:\Users\%Username%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\ Thank you in advance for your reply. Best regards Visit My Website
somdcomputerguy Posted July 4, 2010 Posted July 4, 2010 (edited) This function will probably work out for you, FileCreateShortcut.add: I just found this, AutoIt Snippets, it may help.. Edited July 4, 2010 by somdcomputerguy - Bruce /*somdcomputerguy */ If you change the way you look at things, the things you look at change.
maxrealqnx Posted July 4, 2010 Author Posted July 4, 2010 (edited) This function will probably work out for you, FileCreateShortcut. add: I just found this, AutoIt Snippets, it may help.. Hi somdcomputerguy I'm thank you for your reply. Job at creating a shortcut does not end in the Windows 7 because This registry key is absolutely necessary to organize So the this Favorites registry key for any *.lnk file, how can we organize at the Windows 7 ? Windows Registry Editor Version 5.00 ; ADD section [HKEY_USERS\S-1-5-18\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband] "Favorites"=hex(03):00,4e,............................. Best regards Edited July 4, 2010 by maxrealqnx Visit My Website
maxrealqnx Posted August 3, 2010 Author Posted August 3, 2010 Why does not anyone want to help me Visit My Website
OctopusCO Posted August 3, 2010 Posted August 3, 2010 Don't forget that the profile folder is protected location and if you have UAV on at a certain level it will not allow AutoIT to create the shortcut file in there. By default User Account Verification is on and will probably protect other profiles. Also, check if the tool bar is locked by right-clicking on the toolbar. Just a couple thoughts.
ALTIN Posted August 3, 2010 Posted August 3, 2010 I didn't get what you really need! Are you asking how to read that registry key or what? Plz, Make it more clear.
JFX Posted August 4, 2010 Posted August 4, 2010 (edited) Hi Max Hope that what you wantexpandcollapse popup#include <WinAPI.au3> #include <Constants.au3> _PinTaskbar(@WindowsDir & '\notepad.exe') Func _PinTaskbar($File, $Pin = True) If @OSBuild < 7600 Then Return SetError(1) ; Windows 7 only If Not FileExists($File) Then Return SetError(2) local $sFolder = StringRegExpReplace($File, "(^.*\\)(.*)", "\1") local $sFile = StringRegExpReplace($File, "^.*\\", "") local $oShell = ObjCreate("Shell.Application") local $oFolder = $oShell.NameSpace($sFolder) local $oFolderItem = $oFolder.ParseName($sFile) local $oFolderItemVerbs = $oFolderItem.Verbs local $hInstance = _WinAPI_LoadLibraryEx("shell32.dll", $LOAD_LIBRARY_AS_DATAFILE) local $DoVerb = '' If $hInstance Then IF $Pin = 1 Then local $DoVerb = _WinAPI_LoadString($hInstance, 5386) Else local $DoVerb = _WinAPI_LoadString($hInstance, 5387) EndIf _WinAPI_FreeLibrary($hInstance) EndIf IF $DoVerb = '' Then Return SetError(3) ; $DoVerb string couldn't received For $i = 0 To $oFolderItemVerbs.Count - 1 If $oFolderItemVerbs.Item($i).Name = $DoVerb Then $oFolderItemVerbs.Item($i).DoIt Return EndIf Next Return SetError(4) ; $DoVerb string not in menu EndFunc Edited August 16, 2010 by JFX
maxrealqnx Posted August 15, 2010 Author Posted August 15, 2010 Hi Max Hope that what you want expandcollapse popup#include <WinAPI.au3> #include <Constants.au3> _PinTaskbar(@WindowsDir & '\notepad.exe') Func _PinTaskbar($File, $Pin = True) If @OSBuild < 7600 Then Return SetError(1) ; Windows 7 only If Not FileExists($File) Then Return SetError(2) local $sFolder = StringRegExpReplace($File, "(^.*\\)(.*)", "\1") local $sFile = StringRegExpReplace($File, "^.*\\", "") local $oShell = ObjCreate("Shell.Application") local $oFolder = $oShell.NameSpace($sFolder) local $oFolderItem = $oFolder.ParseName($sFile) local $oFolderItemVerbs = $oFolderItem.Verbs local $hInstance = _WinAPI_LoadLibraryEx("shell32.dll", $LOAD_LIBRARY_AS_DATAFILE) local $DoVerb = '' If $hInstance Then IF $Pin = 1 Then local $DoVerb = _WinAPI_LoadString($hInstance, 5386) Else local $DoVerb = _WinAPI_LoadString($hInstance, 5387) EndIf _WinAPI_FreeLibrary($hInstance) EndIf IF $DoVerb = '' Then SetError(3) ; $DoVerb string couldn't received For $i = 0 To $oFolderItemVerbs.Count - 1 If $oFolderItemVerbs.Item($i).Name = $DoVerb Then $oFolderItemVerbs.Item($i).DoIt Return EndIf Next Return SetError(4) ; $DoVerb string not in menu EndFunc Hi JFX Wooow this code is really good I'm thank you very much for your strong support. God bless you. Visit My Website
JFX Posted August 16, 2010 Posted August 16, 2010 Hi Max,happy you like it There was a missing Return before SetError(3) just fix it.
maxrealqnx Posted August 16, 2010 Author Posted August 16, 2010 Hi Max,happy you like it There was a missing Return before SetError(3) just fix it.i love you because you're super Visit My Website
maxrealqnx Posted August 16, 2010 Author Posted August 16, 2010 (edited) Hi my friend JFX How can I get the File Description information of the file with autoit. Just like in the FileGetSize command. Is it possible to do with AutoIt ? I'm thank you very much for your reply.Because this is the shortcut name with according to your code._PinTaskbar(@WindowsDir & '\twunk_32.exe') = Twain.dll Client's 32-Bit Thunking Server.lnkc:\Users\XXXXXX\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\*.lnkBest regards Edited August 16, 2010 by maxrealqnx Visit My Website
AdmiralAlkex Posted August 16, 2010 Posted August 16, 2010 Looks like a job for FileGetVersion to me MsgBox(0, "", FileGetVersion("C:\Windows\twunk_32.exe", "FileDescription")) .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface
maxrealqnx Posted August 17, 2010 Author Posted August 17, 2010 Looks like a job for FileGetVersion to me MsgBox(0, "", FileGetVersion("C:\Windows\twunk_32.exe", "FileDescription")) Hi AdmiralAlkex I'm thank you very much for your help Visit My Website
JFX Posted August 23, 2010 Posted August 23, 2010 Hi Max, you need to create a customized Shortcut with FileCreateShortcut first and Pin this one.
maxrealqnx Posted August 30, 2010 Author Posted August 30, 2010 Hi Max,you need to create a customized Shortcut with FileCreateShortcut first and Pin this one.Hi JFX I'm thank you very much for your strong support. God bless you. See you later at the boot-land.netBest regards Visit My Website
maxrealqnx Posted October 2, 2010 Author Posted October 2, 2010 Hi my friends StartMenu Pin & Unpin ! http://www.win7dll.info/shell32_dll.html Best regards expandcollapse popup#include <WinAPI.au3> #include <Constants.au3> _PinTaskbar(@WindowsDir & '\notepad.exe') Func _PinTaskbar($File, $Pin = True) If @OSBuild < 7600 Then Return SetError(1) ; Windows 7 only If Not FileExists($File) Then Return SetError(2) local $sFolder = StringRegExpReplace($File, "(^.*\\)(.*)", "\1") local $sFile = StringRegExpReplace($File, "^.*\\", "") local $oShell = ObjCreate("Shell.Application") local $oFolder = $oShell.NameSpace($sFolder) local $oFolderItem = $oFolder.ParseName($sFile) local $oFolderItemVerbs = $oFolderItem.Verbs local $hInstance = _WinAPI_LoadLibraryEx("shell32.dll", $LOAD_LIBRARY_AS_DATAFILE) local $DoVerb = '' If $hInstance Then IF $Pin = 1 Then local $DoVerb = _WinAPI_LoadString($hInstance, 5381) Else local $DoVerb = _WinAPI_LoadString($hInstance, 5382) EndIf _WinAPI_FreeLibrary($hInstance) EndIf IF $DoVerb = '' Then SetError(3) ; $DoVerb string couldn't received For $i = 0 To $oFolderItemVerbs.Count - 1 If $oFolderItemVerbs.Item($i).Name = $DoVerb Then $oFolderItemVerbs.Item($i).DoIt Return EndIf Next Return SetError(4) ; $DoVerb string not in menu EndFunc Visit My Website
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now