[angvelem]

Уже начинаю тохонько звереть от непонимания причины. Когда программа запущена вручную, то работает нормально, но когда запускается через реестр перестаёт писать в базу, сваливается на выполнении SQL запроса. Чтение старых данных происходит нормально. Такое ощущение, что база становится ReadOnly.

Код:

      if Assigned(sldb) then
      begin
        sldb.BeginTransaction;
        try
          St := AnsiString(Format('INSERT INTO maplog(date, ...'))); // обрезано для краткости
          // Не выполняется при запуске из реестра
          sldb.ExecSQL(St);
          sldb.Commit;
        except
          sldb.Rollback;
        end;
      end;

[Freeman]

От имени какого пользователя запускается из реестра? Права на запись в файл у него есть?

[angvelem]

Пользователь один, права есть.

[Freeman]

Пользователь точно тот же самый, а не NetworkService какой-нибудь? Каков конкретно текст ошибки?

[angvelem]

Пользователь один. SQLite ошибок не даёт - гад, тупо не работает. Логирование каждой строки показало, что не отрабатывает ExecSql, да и только по автозапуску. При ручном запуске всё в норме.

[Freeman]

Сообщение от angvelem

SQLite ошибок не даёт - гад, тупо не работает.

Это больше похоже на саботаж try..except в коде или отсутствие вызова аналога RaiseLastSQLiteError в нужном месте. Какие компоненты для SQLite используются? Их можно потрассировать по исходникам на предмет подобной "закладки"?

Обработчик Application.OnException пустой?