![]() |
найти объект в свойствах ярлыка поместить в контекстное меню
как добавить в контекстное меню объектов .lnk такой пункт как найти объект, без помощи сторонних программ.
он есть в свойствах, но очень хочется такой пунктик в контекстном меню. знаю что сторонние программы это могут, но хочется средствами винды (XP SP3). поиск результатов не дал. |
|
проблема решена, спасибо)
|
Цитата:
|
прошу прощения, ответ такой: пишем скрипт
Код: // FindTarget.js // аргумент - путь к lnk-ярлыку try { var Item=GetItemByPath(WScript.Arguments.Item(0)).GetLink.Target, ShellWindows=Item.Application.Windows(), ParentItem=Item.Parent.Self, ParentFolderPath=ParentItem.Path, GrandParentFolderPath=ParentItem.Parent.Self.Path; ParentItem.InvokeVerb("Open"); for (var t=50; --t>=0; WScript.Sleep(50)) try { var FolderView=ShellWindows.Item().Document, FolderViewItem=FolderView.Folder.Self; if ( FolderViewItem.Path==ParentFolderPath && FolderViewItem.Parent.Self.Path==GrandParentFolderPath ) { FolderView.SelectItem(Item, 1|4|8|16); break; } } catch (Err) {} } catch (Err) {} function GetItemByPath (Path) { var Shell=new ActiveXObject("Shell.Application"), FSO=new ActiveXObject("Scripting.FileSystemObject"); return Shell. NameSpace(FSO.GetParentFolderName(Path)).ParseName(FSO.GetFileName(Path)); } сохраняем с расширением .js кладем например в G:\findobject\findobject.js делаем там же рег файл Код: REGEDIT4 [HKEY_CLASSES_ROOT\lnkfile\shell\FindTarget] @="&Найти объект" [HKEY_CLASSES_ROOT\lnkfile\shell\FindTarget\command] @="C:\\WINDOWS\\System32\\WScript.exe \"G:\\findobject\\findobject.js\" \"%1\"" выполняем и наслаждаемся функционалом =) отдельное спасибо ребятам с http://forum.script-coding.info |
спасибо доперло а то все не как не мог с этим скриптом разобраться еще когда надыбал :)
|
Время: 14:43. |
Время: 14:43.
© OSzone.net 2001-