Происходит ошибка под компилятором FPC64, в то время как FPC32 работает.

Как понял из поиска причины, то ошибка возникает на строчке:


3-й день не могу это решить и всё остановилось из за этого.
Есть особенность, если драйвер заранее загрузить любой другой утилитой, то код отрабатывает нормально и выдаёт handle (на FPC64), но если драйвер не загружен, то ошибка Access Violation.

В архиве схема и тест драйвер с подписью.


Редактировалось 3 раз(а), последний 2020-05-02 18:04:04

"FPC64" - какой? Юникодный? Ошибка какая - во время исполнения или компиляции?
Исправить ошибки компиляции в FPC-64U:
- заменить "pansichar" на "pchar" в function SetPriviledge(name:pchar):boolean;
- закомментировать функцию StringToPWide()
- заменить использование StringToPWide():

Будет ли после этого работать - без понятия.

при Unicode ошибки такие:


без Unicode ошибок нет при компиляции, ошибка лишь в работе приложения, когда дрв загружается, вылазит Access Violation или Runtime, с 32 битным компилятором FPC без unicode - ошибок нет и загружается всё нормально. с правками кода, под FPC64U ошибки пропадают, но толку от всего этого нет.



попробовал, ну и так же на 32 работает, а на 64 всё тоже самое, ошибка при работе приложения
попробовал так же и 64U, ошибка не поменялась, всё тоже самое.

может ошибка где то чуть в другом месте?

Редактировалось 2 раз(а), последний 2020-05-05 13:30:24

"ntdll:Cardinal;" должно быть "ntdll:THandle;"

помогло