Batya
|
 Posted: Mon Apr 25, 2005 11:25 Post subject: |
 |
|
DN_Diamond
Держи:
| Code: | '====================================================================
' Изменение шрифта файловых панелей TC
'
' В параметрах вызова из TC должно быть в кавычках указано имя шрифта
'====================================================================
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
NewFont = WScript.Arguments(0)
TCS.SendCommand(492)
TCS.SendKeystroke "{TAB} " & NewFont & "{ENTER}"
TCS.SendKeystroke "+{TAB}{ENTER}" |
Сохрани в файле *.vbs, повесь файл на кнопку, в параметрах кнопки в кавычках укажи имя шрифта. В скрипте используется TCWSHelp. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
