Saber si se ejecuta el .EXE en modo administrador

Posts: 309

Joined: Wed Mar 28, 2018 04:38 PM

Saber si se ejecuta el .EXE en modo administrador
Posted: Fri Sep 02, 2022 10:35 AM

Hola.

Hay alguna forma en Fivewin de saber si el programa .EXE que está ejecutando lo está haciendo en modo administrador?

Es por utilizar la función RegisterServer(), si no está en modo administrador no lo registra, más que nada para avisar al usuario. En caso de que no se pueda, lo que haría sería registrar y luego comprobar si se ha registrado, pero si hay una función que detecte la ejecución en modo administrador el mensaje ya puede ir más al grano...

Gracias y salud!

--------

¿ Y porque no ?

¿ And why not ?

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Saber si se ejecuta el .EXE en modo administrador
Posted: Fri Sep 02, 2022 11:31 AM

Víctor,

¿ Qué operativa que requiere permisos de administrador debe hacer el programa ?

Salu2

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Saber si se ejecuta el .EXE en modo administrador
Posted: Fri Sep 02, 2022 01:22 PM

Code (fw): Select all Collapse

// C:\FWH..\SAMPLES\ADMIN.PRG

#include "FiveWin.ch"

function Main()

   LOCAL lSucesso := .F.
    
   lSucesso := IsUserAdmin()

   IF lSucesso  // SI

      ? "Voce esta executando o programa como administrador."

   ELSE         // NO

      ? "Voce nao esta executando o programa como administrador."

   ENDIF

return nil


FUNCTION IsUserAdmin()

Return IsUserAnAdmin()

DLL32 STATIC FUNCTION IsUserAnAdmin() AS BOOL PASCAL LIB "Shell32.dll"

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

VictorCasajuana

Posts: 309

Joined: Wed Mar 28, 2018 04:38 PM

Re: Saber si se ejecuta el .EXE en modo administrador
Posted: Fri Sep 02, 2022 04:03 PM

hmpaquito wrote:Víctor,

¿ Qué operativa que requiere permisos de administrador debe hacer el programa ?

Salu2

Instalar un activex

Enviado desde mi motorola edge 20 mediante Tapatalk

--------

¿ Y porque no ?

¿ And why not ?

VictorCasajuana

Posts: 309

Joined: Wed Mar 28, 2018 04:38 PM

Re: Saber si se ejecuta el .EXE en modo administrador
Posted: Mon Sep 12, 2022 11:46 AM

karinha wrote:

Code (fw): Select all Collapse

// C:\FWH..\SAMPLES\ADMIN.PRG

#include "FiveWin.ch"

function Main()

   LOCAL lSucesso := .F.
    
   lSucesso := IsUserAdmin()

   IF lSucesso  // SI

      ? "Voce esta executando o programa como administrador."

   ELSE         // NO

      ? "Voce nao esta executando o programa como administrador."

   ENDIF

return nil


FUNCTION IsUserAdmin()

Return IsUserAnAdmin()

DLL32 STATIC FUNCTION IsUserAnAdmin() AS BOOL PASCAL LIB "Shell32.dll"

Regards, saludos.

Gracias por la info Karinha, buscando sobre la función IsUserAnAdmin() he encontrado que HB ya la incorpora: https://www.forums.fivetechsupport.com/viewtopic.php?f=3&t=9505&p=253280&sid=2cff4a7bb33e2995f692add6560f9846&sid=2cff4a7bb33e2995f692add6560f9846#p253280

--------

¿ Y porque no ?

¿ And why not ?

FiveTech Support Forums

Continue the discussion