Помогите написать скрипт

Russian main discussion
  • Author
  • Message
Offline
Posts: 44
Joined: Wed May 01, 2019 10:10 am

Post by Олег »

AZJIO
Это понято. А если я запускаю текстовые (или ещё какие) файлы с помощью даблкика, как это реализовать?

Offline
Posts: 351
Joined: Mon Jun 03, 2019 2:33 am

Post by AZJIO »

Олег wrote:AZJIO
Это понято. А если я запускаю текстовые (или ещё какие) файлы с помощью даблкика, как это реализовать?
В контекстное меню проводника встроить команду "AkelPad as admin". Найти маленькую прожку as admin и использовать её как промежуточную

Code: Select all

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell\AkelPad]
@="AkelPad"
"Icon"=""C:\\Program Files\\AkelPad\\AkelPad.exe""

[HKEY_CLASSES_ROOT\*\shell\AkelPad\command]
@=""C:\\Program Files\\AkelPad\\AkelPad.exe" "%1""

Offline
Posts: 44
Joined: Wed May 01, 2019 10:10 am

Post by Олег »

Как определить с помощью скрипта или внутренней команды что документ был изменён? И прописать это в коде кнопки?
Что-то вродеэтого:
SET(128, If("выражение", 0x0, 0x2))

Offline
Posts: 351
Joined: Mon Jun 03, 2019 2:33 am

Post by AZJIO »

Олег wrote:что документ был изменён?

Code: Select all

var bModified=AkelPad.GetEditModified(0);

Code: Select all

SET(128, If(`AkelPad.GetEditModified(0)`, 0x0, 0x2))

Offline
Posts: 44
Joined: Wed May 01, 2019 10:10 am

Post by Олег »

Большое спасибо! :)

Offline
Posts: 44
Joined: Wed May 01, 2019 10:10 am

Post by Олег »

Добрый день!
Подскажите, как написать скрипт для рестарта Акела с сохранением сессии когда сохранение сессий отключено.
Скрипт Restart.vbs у меня почему то не работает.

Offline
Posts: 874
Joined: Sat Jan 16, 2010 2:03 pm

Post by opk44 »

Олег wrote:...Скрипт Restart.vbs у меня почему то не работает.
На этом форуме про данный скрипт ничего не известно. Имеет смысл задавать этот вопрос там, где вы его взяли.

Offline
Posts: 9
Joined: Tue Jun 28, 2011 12:22 pm

Re: Помогите написать скрипт

Post by bogser »

Включены PMDI и "Don't open a program twice", хочу сделать так, чтобы при запуске нового инстанса AkelPad автоматически создавалась новая вкладка в уже запущенном AkelPad, а не просто происходила его активация. Пробовал "AkelPad.exe /Command(4101)" (4101 = Create new edit window), все отлично за исключением случая, когда происходит первый запуск AkelPad (т.е. когда нет уже запущенного инстанса в момент запуска нового), в этом случае в открывшемся AkelPad получаю две вкладки вместо одной.

Можно было бы воспользоваться /If("expression", "IfTrue", "IfFalse"), чтобы не дергать /Command(4101), когда ни попадя, но как в expression определять, что происходит первый запуск AkelPad?

Offline
Site Admin
Posts: 6411
Joined: Thu Jul 06, 2006 7:20 am

Re: Помогите написать скрипт

Post by Instructor »

bogser
В тестовой x86 / x64 можно использовать следующую командную строку:

Code: Select all

akelpad.exe /If(`SendMain(1222 /*AKD_GETMAININFO*/, 92 /*MI_PARSECMDLINETYPE*/, 0) == 4 /*PCL_ONMESSAGE*/`, `/Command(4101 /*IDM_FILE_NEW*/)`, ``)

Offline
Posts: 9
Joined: Tue Jun 28, 2011 12:22 pm

Re: Помогите написать скрипт

Post by bogser »

Instructor wrote: Sat Jul 19, 2025 8:58 pm В тестовой x86
Работает, спасибо!
Post Reply