Single Post - Как организовать окошко ввода по Shift+F4 аналогично F7?

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Как организовать окошко ввода по Shift+F4 аналогично F7?

Author

Message

Tol!k

Posted: Sat Nov 16, 2013 18:40 Post subject:

Имя под курсором + .txt

Code:

' File: Shift+F4.vbs
' Description: Кнопка для создания нового файла "Имя под курсором.txt"
' Requirements: WSH Helper for TC by Volniy
' Parameters: "%O"

Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.Pause=100

TCS.SendKeystroke "+{F4}"
TCS.SendKeystroke WScript.Arguments.Item(0) & ".txt"

Set TCS = Nothing
WScript.Quit