Ejecutar un acceso Directo como admin

256 views
Skip to first unread message

Dsanchez

unread,
Jul 3, 2017, 3:28:44 PM7/3/17
to publice...@googlegroups.com
Hola que tal Grupo


Resulta que tengo un archivo bat, segun lei en una Página de Microsoft como darle Privilegio administrativo, registro de dll de mi aplicación.

Por lo que Consulto:  Alguien sabe como ejecutar un acceso Directo desde vfp, no el archivo objeto, sino el acceso Directo que es el que tiene permiso administrativo.

desde ya gracias.

Saludes

DSanchez

HernanCano

unread,
Jul 3, 2017, 8:00:09 PM7/3/17
to Comunidad de Visual Foxpro en Español
Te paso dos tutoriales:

Como crear un acceso directo de un programa con privilegios administrativos 

Ejecuta aplicaciones como administrador directamente desde el acceso directo en Windows 8


Espero te ayuden.....

HernanCano

unread,
Jul 3, 2017, 8:01:05 PM7/3/17
to Comunidad de Visual Foxpro en Español
Para la próxima te recomiendo Google... es mu chévere......

ZeRoberto

unread,
Jul 3, 2017, 8:07:10 PM7/3/17
to publicesvfoxpro
Haber prueba con esto

Procedure ExecuteAs(tcFileName, tcParams, tlShow)
Local lnShow
   lnShow = Iif(Vartype(tlShow) == "L", Iif(tlShow, 1, 0), 1)
   Declare Integer ShellExecuteA In Shell32 As ShellExecute Integer, String, String, String, String, Integer
   ShellExecute(_Vfp.hWnd, "runas", tcFileName, tcParams, "", lnShow)
   Clear Dlls "ShellExecute"
Return


Dsanchez

unread,
Jul 4, 2017, 11:14:31 AM7/4/17
to publice...@googlegroups.com
Gracias HernanCano

Eso ya lo sabia, pero dentro de mi app, tiene un acceso directo configurado como admin, preguntaba como ejecutarlo desde vfp.
configurarlo es asi de facil.
Imágenes integradas 1

Dsanchez

unread,
Jul 4, 2017, 11:16:11 AM7/4/17
to publice...@googlegroups.com
Gracias ZRobert

Voy a probar este procedimiento algo asi vi en visual basic 6.0.

Saludes


2017-07-03 18:07 GMT-06:00 ZeRoberto <zero...@gmail.com>:
Haber prueba con esto

Procedure ExecuteAs(tcFileName, tcParams, tlShow)
Local lnShow
   lnShow = Iif(Vartype(tlShow) == "L", Iif(tlShow, 1, 0), 1)
   Declare Integer ShellExecuteA In Shell32 As ShellExecute Integer, String, String, String, String, Integer
   ShellExecute(_Vfp.hWnd, "runas", tcFileName, tcParams, "", lnShow)
   Clear Dlls "ShellExecute"
Return

Reply all
Reply to author
Forward
0 new messages