Ну если ничего не записалось\удалилось из-за недостатка привилегий, вот об этом и можно предупредить, примерно так
Код:
function IsPriv: boolean;
var
hnd: THandle;
tki: PTokenPrivileges;
rln: cardinal;
begin
GetMem(tki, 800);
OpenProcessToken(GetCurrentProcess(),$0020 or $0008,hnd);
GetTokenInformation(hnd, TokenPrivileges, tki, 800, rln);
Result:= tki.PrivilegeCount > 5;
FreeMem(tki);
end;
и дальше в коде
Код:
...
if IsPriv then
begin
if CheckKey.ValueExists('Scancode Map') then
ShowMessage('Блокировка выполнена успешно!')
else
ShowMessage('Параметр блокировки отсутствует или удален!');
end else
ShowMessage('Недостаточно прав для выполнения!');