Gracias [Lepe]. Tiene buena pinta la funcion pero no compila.
Código Delphi
[-]
AdjustTokenPrivileges(HToken, FALSE,
TokenPriv, 0, PTokenPrivileges(NIL)^, H);
Aqui da error "ambiguous overloaded call to 'AdjustTokenPrivileges' "
Uso Windows xp SP3 y Delphi 7
¿qué esta pasando?