Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: ТС или Проводник является местом запуска скрипта? 
Author Message
gora



PostPosted: Fri Feb 06, 2015 09:27    Post subject: Reply with quote

Flasher wrote:
Нужна конкретика с примером (способ вызова меню, название пункта, запись в shell и т.д.).

1 Запись в контекстном меню создается reg файлом:
Code:
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\shell\Test]
@="Тест папки"
"Icon"="\"C:\\Program Files (x86)\\Test\\Test.ico\",0"

[HKEY_CLASSES_ROOT\Directory\shell\Test\command]
@="wscript \"C:\\Program Files (x86)\\Test\\Test.vbs\" \"%1\" /TEST"

В контекстном меню любой папки появится пункт "Тест папки" служащий для запуска скрипта.

2 В папке программы C:\Program Files (x86)\Test лежит скрипт и произвольная иконка:
Code:
If WScript.Arguments.Count < 2 Then WScript.Quit
F = WScript.Arguments.UnNamed.Item(0)
'~~~~~~~
If WScript.Arguments.Named.Exists("TEST") Then
   shell = "???"
   MsgBox "Папка: " & F & vbCr & "Запущено из: " & shell, 48, "Тест"
End If
'~~~~~~~
If WScript.Arguments.Named.Exists("TEST2") Then
' что бы не было вопросов, "зачем два параметра?"
End If
'~~~~~~~
If WScript.Arguments.Named.Exists("TEST3") Then
' что бы не было вопросов, "зачем два параметра?"
End If

3 Нужно, что-бы после запуска в окне скрипта был ответ на вопрос вынесенный в заголовок темы.
_________________
Win7 SP1 Ultimate x64, TC8.52a x64
View user's profile Send private message ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group