[Lubitel Softa]

читать дальше »

Код:

@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