ISELEVATED Subroutine

 
Usage:
r = ISELEVATED()
 
Description:
Use this to determine if the currently running program is elevated under Windows. 
The return values are:
    -1 = not able to determine or elevation not applicable;
     0 = not elevated;
     1 = elevated.
 
Example:
sub main()
 if IsElevated()=0 then
    Ext("Elevate ^"" # arg(0) # "^"")
 end if
end sub