[addon] Find Target [Версия для КПК] - стр. 2 - Компьютерный форум OSzone.net

PDA

Показать полную графическую версию : [addon] Find Target

Страниц : 1 [2]

Guman

20-12-2011, 13:49

ThentyZ, ссылка мертвая . перезалейте пож

apozlevich

20-12-2011, 16:05

ThentyZ, батник? Мб просто код выложишь тут? А как там с ярлыками QuickLaunch`а, проблемы нет?

Guman

23-12-2011, 06:45

http://rghost.ru удобен но там файл быстро удаляют.. обновите пож ссылки..

Lubitel Softa

24-12-2011, 02:54

@echo off
If exist %windir%\FT.vbs (
echo Uninstall?&echo.&pause
reg delete HKCR\lnkfile\shell\FT /f
del %windir%\FT.vbs
exit
)
reg add "HKCR\lnkfile\shell\FT" /f /ve /t REG_SZ /d "&ђ*бЇ®«®¦Ґ*ЁҐ д*©«*"
reg add "HKCR\lnkfile\shell\FT\command" /f /ve /t REG_SZ /d "WScript.exe %windir%\FT.vbs \"%%1\""
more +10 < %0 >%windir%\FT.vbs && exit /b 0
dim ws,objArgs,strPath
Set objArgs = WScript.Arguments
if objArgs.Count>0 then
strPath=mid(objArgs(0),instr(objArgs(0),"/")+1,len(objArgs(0))-instr(objArgs(0),"/"))
end if
set ws=CreateObject("Wscript.Shell")
ws.run "Explorer /select, " & GetTargetPath(strPath)

Function GetTargetPath(LinkName)
On Error Resume Next
Dim Shortcut
Set Shortcut = CreateObject("Wscript.Shell").CreateShortcut(LinkName)
GetTargetPath = Shortcut.TargetPath
Shortcut.Save
Set Shortcut = Nothing
End Function

apozlevich

24-12-2011, 14:01

Lubitel Softa, собственно что это?

Lubitel Softa

24-12-2011, 14:57

Собственно это код обсуждаемого bat-ника.

apozlevich

24-12-2011, 15:03

Lubitel Softa, Собственно, какого батника? (Что делает, как использовать)

Lubitel Softa

24-12-2011, 23:31

Собственно, какого батника?»

Независимый (От местоположения при установке) Bat-файл
добавляет контекст "Расположение файла" ТОЛЬКО к Ярлыкам
в правильной кодировке.. »

как использовать»
Сохранить код в файл с расширением bat и запустить. После этого на Windows XP в свойствах всех ярлыков появится пункт "Расположение файла", как в Windows 7.
Готовый к употреблению bat-файл (http://www.mediafire.com/?6qyledav3tpbku8)

apozlevich

25-12-2011, 10:08

Lubitel Softa, это то, что ThentyZ постил? Кстати, как там с ярлыками "Quick Launch"а?

momo2000

28-01-2013, 08:43

Такая проблема, перестал работать Find Target от Lubitel Softa.
http://img838.imageshack.us/img838/302/page103844.jpg
Причина в том, что даже через свойства ярлыка не ищет, вообще ничего не происходит.
Зарегистрировать FT.vbs не удается(

P.S. Решено, благодаря этой теме
Разное - Не работает "Найти объект" в свойствах ярлыка (http://forum.oszone.net/post-750107.html)