Privilegios de Administrador

[miarcod]

Hola

Alguien conoce la forma de comprobar desde el programa si este se está ejecutando con privilegios elevados de administrador

Gracias

[FiveWiDi]

FUNCTION IsUserAdmin()
Return IsUserAnAdmin()
/* *********************************************************************************** */
DLL32 STATIC FUNCTION IsUserAnAdmin() AS BOOL PASCAL LIB "Shell32.dll"
/* *********************************************************************************** */

[miarcod]

Gracias.