Andrey_A

|
Posted: Tue Mar 23, 2010 14:22 Post subject: |
|
|
Забыл дописать:
1. Необходимо вставить свои пути (к примеру у меня написано "%%COMMANDER_PATH%%\WinAssociations.ini", потому что секция вынесена из основного ini файла, у вас будет наверное "%%COMMANDER_PATH%%\WinCmd.ini")
2. Единственный нюанс при запуске кнопки (к примеру добавления расширения) в том, что сразу на ассоциированном типе файла значок не отображается. Нужно
- либо перезапустить Тотал,
- либо вызывать окно Ассоциаций и нажимать Enter
- либо использовать скрипт
Code: | 'Вызывает окно Ассоциаций и нажимает Enter
'Необходимо для того, чтобы проявились назначенные значки
Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand "cm_InternalAssociate"
Pause = 300
TCS.SendKeystroke "{Enter}"
Set TCS = Nothing |
|
|