Исправить ошибки компиляции в FPC-64U:
- заменить "pansichar" на "pchar" в function SetPriviledge(name:pchar):boolean;
- закомментировать функцию StringToPWide()
- заменить использование StringToPWide():
RtlInitUnicodeString(Ustr,PWideChar(WideString('\registry\machine\SYSTEM\CurrentControlSet\Services\'+DRIVER_SVC_NAME)));
Будет ли после этого работать - без понятия.
Поиск
Друзья
Администрация