Показать сообщение отдельно
  #2  
Старый 29.08.2022, 23:59
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

бинарник 32 бита?
Таи, вроде, были заморочки, что для 32 битных бинарников своя копия реестра. Вроже, если пишешь в HKEY_LOCAL_MACHINE, то будет работать,а вот с HKEY_CURRENT_USER какие-то заморочки.

ЗЫ. Я отказался от регистрации ассоциаций из самого экзешника в пользу регистрации при инсталяции. Пользуюсь InnoSetup. Он делает все правильно.

ЗЗЫ. По коду. А кто будет закрывать ключи за тобой. Можнт потому и не работает?

ЗЗЫ2. Расширение с точкой передаешь? Типа ".txt"?

ЗЗЫ3. А, кажется понял почему не работает. Смотри вот этот пример внимательно:
https://stackoverflow.com/questions/...e-current-user
В первом ключе надо писать не имя экзешника, а имя программы, т.е. в твоем случае "ProText"
Далее, что за извращение в строке 11 и 13? ParamStr(0) уже дает тебе полный путь к бинарнику.
В строке 13, вроде, пробела не хватает (разделение имени бинарника и параметра).
Ответить с цитированием