Проблема с переменными в запущенном процессе.

Обсуждение программ nnCron и nnCron LITE

Re: Проблема с переменными в запущенном процессе.

Postby dothen » Sun, 24 Jul 2016, 19:05

Если для ассоциации брать расширение длиной не более трех символов тогда все работает.

Code: Select all
#( test-task1
NoActive

WINAPI: FindExecutableA Shell32.dll

CREATE ekze 1024 ALLOT
\ Чтобы не испортить реестр берем незарегистрированное расширение.
: ext S" 1-3" ; \ Расширение файла.

: imya S" c:\йцукен qwerty" ; \ Имя файла.

\ Находим имя исполняемого файла связанного с конкретным документом.
\ Функция FindExecutableA вызывается в слове START-APP
\ Если расширение файла больше трех букв то FindExecutableA
\ не находит установленную ассоциацию.
: testFindExec { a u -- } \ Просто проверяем работу FindExecutableA
 ekze OFF
 ekze 0 a u EVAL-SUBST DROP FindExecutableA N>S MsgBox
 ekze ASCIIZ> MsgBox
;

Action:
 QUERY: "Изменить ассоциацию для .%ext%"
 IF
   S" FTYPE %ext%=notepad.exe %PERCENT%%PERCENT%1" EVAL-SUBST START-APP
   S" ASSOC .%ext%=%ext%" EVAL-SUBST START-APP

   S" @PAUSE" S" %imya%.%ext%" EVAL-SUBST FWRITE

   500 PAUSE
   S" %imya%.%ext%" testFindExec \ Просто проверяем работу FindExecutableA

   S" %imya%.%ext%" EVAL-SUBST START-APPW
   500 PAUSE

   START-APPW: %imya%.%ext%

   QUERY: "Удалить из реестра записи%crlf%%ext%%crlf%.%ext%"
   IF
     S" REG DELETE HKEY_CLASSES_ROOT\%ext% /f" EVAL-SUBST START-APP
     S" REG DELETE HKEY_CLASSES_ROOT\.%ext% /f" EVAL-SUBST START-APP
   THEN
   S" %imya%.%ext%" EVAL-SUBST FDELETE
 THEN
)#
dothen
 
Posts: 184
Joined: Mon, 16 Mar 2015, 04:58

Re: Проблема с переменными в запущенном процессе.

Postby ANR Daemon » Sat, 27 Aug 2016, 00:45

ужс…
ANR Daemon
 
Posts: 234
Joined: Mon, 26 Feb 2007, 22:59

Previous

Return to nnCron forum (Russian)

Who is online

Users browsing this forum: No registered users and 2 guests

cron