Utilizando la función que me habeis dado me salte este error:
"statement expectec, but expression of type 'longbool found, en la siguiente linea
Código Delphi
[-]OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES,HToken);
y en esta otra
Código Delphi
[-]TokenPriv.Privileges[0].Luid);
y en esta
Para acabar me dice que result no esta definido.
A ver si me podeis ayudar porque no me entero de nada del codigo.