Войти

Показать полную графическую версию : [решено] найти объект в свойствах ярлыка поместить в контекстное меню


emergency
26-10-2008, 18:35
как добавить в контекстное меню объектов .lnk такой пункт как найти объект, без помощи сторонних программ.
он есть в свойствах, но очень хочется такой пунктик в контекстном меню. знаю что сторонние программы это могут, но хочется средствами винды (XP SP3).
поиск результатов не дал.

E-mpty
26-10-2008, 22:17
http://forum.oszone.net/thread-62252.html
http://suchov.narod.ru/context.htm
http://forum.script-coding.info/viewtopic.php?id=2228
http://centaz.narod.ru/winwork_one.html
http://forum.oszone.net/forumdisplay.php?f=6&filter_string=%EA%EE%ED%F2%E5%EA%F1%F2%ED%EE%E5+%EC%E5%ED%FE&filter_by=title

emergency
27-10-2008, 00:45
проблема решена, спасибо)

3Grom
27-10-2008, 19:53
проблема решена, спасибо)
а поподробнее каким образом все разрешилось?

emergency
27-10-2008, 20:12
прошу прощения, ответ такой: пишем скрипт

Код:
// 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

3Grom
27-10-2008, 23:02
спасибо доперло а то все не как не мог с этим скриптом разобраться еще когда надыбал :)




© OSzone.net 2001-2012