15 de noviembre de 2002

Como saber si el usuario tiene permisos administrativos

Para saber si el usuario logueado actualmente tiene permisos administrativos en la PC.

Declare IsNTAdmin IN advpack.dll ;
   LONG dwReserved, ;
   LONG lpdwReserved

? IsNTAdmin(0,0)

Jorge Mota

7 de noviembre de 2002

Saber los Captions de todos los forms abiertos

Este código nos muestra el Czption de cada uno de los formularios que actualmente estén abiertos, se puede usar para ver si lo queremos cerrar o no, dependiendo del Caption del formulario.
Local Caption_F, Ciclo
if _screen.formcount=0
    ? 'Ningun Formulario Abierto.'
    RETURN 
endif
dimension CAPTION_F [ _SCREEN.FORMCOUNT]
**Obtenemos los captions, y los metemos a la matriz
for Ciclo = 1 to _SCREEN.FORMCOUNT 
    caption_F[ciclo]=ALLTRIM(_screen.forms(ciclo).caption)
endfor

***mostramos los captions encontrados.
for Ciclo = 1 to _SCREEN.FORMCOUNT
    ? 'Numero ' + STR(CICLO) + ' Caption: ' + caption_F[ciclo]
endfor
Jorge Mota