Borra
un usuario de Windows NT

tcServer = "Nombre_ruta_servidor"

tcUserName = "dav"



DECLARE INTEGER NetUserDel IN NETAPI32 STRING @,STRING @

tcServer=STRCONV(STRCONV(tcServer,1),5)+CHR(0)

tcUserName=STRCONV(STRCONV(tcUserName,1),5)+CHR(0)

LOCAL lnError

lnError=NetUserDel(@tcServer,@tcUserName)

IF lnError>0

      MESSAGEBOX(_Imposible borrar Usuario_)

ENDIF

Para Visual Fox Pro 6.0 y 5.0

Declare integer GetActiveWindow in win32api

Declare integer IsIconic in "user32.dll" Long hwnd 

ApliActiva = GetActivateWindow()

?IsIconic(ApliActiva) 

Para Visual Fox Pro 6.0 y 5.0

Declare integer GetActiveWindow in win32api

Declare integer IsZoomed  in "user32.dll" Long hwnd 

ApliActiva = GetActivateWindow()

?IsZoomed (ApliActiva) 

DECLARE INTEGER keybd_event IN Win32API ;

INTEGER, INTEGER, INTEGER, INTEGER

VK_SNAPSHOT = 44 

VK_LMENU = 164

KEYEVENTF_KEYUP = 2

KEYEVENTF_EXTENDEDKEY = 1 

DOEVENTS

keybd_event(VK_SNAPSHOT, 1, 0, 0 )

keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0 )

DOEVENTS 

DOEVENTS

keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 )  

keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 )

keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + ; KEYEVENTF_KEYUP, 0 )

keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + ; KEYEVENTF_KEYUP, 0 ) 

DOEVENTS 

Otra utilidad de esta función es minimizar
todas las ventanas que se encuentran activas, esto también es posible con
las funciones Findwindow y Postmessage.

Declare integer keybd_event in "user32" ;

integer, integer, long, Long 



#define KEYEVENTF_KEYUP 2

#define VK_LWIN 91



=keybd_event(VK_LWIN, 0, 0, 0)

=keybd_event(77, 0, 0, 0)

=keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)

Bloquea la ventana activa

DECLARE SHORT LockWindowUpdate IN WIN32API INTEGER hWnd



DECLARE INTEGER GetActiveWindow IN WIN32API

  =LockWindowUpdate(GetActiveWindow())

Para desbloquear la ventana activa

=LockWindowUpdate(0)

Declare integer MessageBoxEx in "user32";

Long hwnd,;

String lpText,;

String lpCaption,;

Long uType,;

Long wLanguageId





=MessageBoxEx(0,"Mensaje para probar función api","API",0,0)

&& Debe existir el archivo DING.WAV en
la ruta especificada.

iResult = mciExecute("Play c:windowsding.wav")

cVal = "play c:cool.avi"  

ReturnVal = mciSendString(cVal, 0, 0, 1)

&& Si queremos ver el video a pantalla
completa

cVal = "play
c:cool.avi fullScreen"  

Enviamos una cadena a la función mciSendString la
cual hará que se cierre la unidad de CD-ROM

Declare integer mciSendString in "winmm.dll" ;

String lpstrCommand, ;

String lpstrReturnString,;

Long uReturnLength,;

Long hwndCallback





= mcisendstring("set CDAudio door closed", "", 127, 0) 

Enviamos una cadena a la función mciSendString la
cual hará que se abra la unidad de CD-ROM

Declare integer mciSendString in "winmm.dll" ;

String lpstrCommand, ;

String lpstrReturnString,;

Long uReturnLength,;

Long hwndCallback



retvalue = mcisendstring("set CDAudio door open","", 127, 0) 

En este caso se le pasara el titulo de una
ventana y a través de la función FindWindow se obtendrá el handle de ella y se
le pasara el argumento para cerrar esta ventana. El ejemplo se explica con la
ventana Panel de Control; por lo tanto abra esta ventana

También podemos utilizar estas dos
funciones (FindWindow y PostMessage) para minimizar y restaurar todas las
ventanas activas; esta caracteristicas también es posible con la función
Keyb_Event.

Declare integer PostMessage in "user32"; 

Long hWnd, Long wMsg, Long wParam, Long lParam 

 

Declare integer FindWindow in "user32"
;

String lpClassName,;

String lpWindowName 







#define WM_COMMAND 273

#define MIN_ALL 419

#define MIN_ALL_UNDO 416 



&&restaura todo lo minimizado 

lngHwnd = FindWindow("Shell_TrayWnd", "")

=PostMessage(lngHwnd, WM_COMMAND, MIN_ALL_UNDO , 0) 



&& Minimiza todo

lngHwnd = FindWindow("Shell_TrayWnd", "")

=PostMessage(lngHwnd, WM_COMMAND, MIN_ALL , 0) 

LOCAL n_CurrProc



DECLARE LONG RegisterServiceProcess IN KERNEL32.DLL ;

LONG ProcessID, ;

LONG ServiceFlags



DECLARE LONG GetCurrentProcessId IN KERNEL32.DLL ;



&& obtiene el identificador de proceso

n_CurrProc = GetCurrentProcessId()



lOcultarApp = .f.

IF lOcultarApp = .T.



&& remueve el flag (bandera) de servicio

RegisterServiceProcess(n_CurrProc, 1)



ELSE



&& crea el falg (bandera) de servicio de la aplicación

RegisterServiceProcess(n_CurrProc, 0)



ENDIF

En este caso ejecuta el protector de pantalla que
se encuentre configurado. 

Declare integer SendMessage in "user32" ;

Long hwnd,;

Long wMsg,;

Long wParam,;

Long lParam



Declare integer GetActiveWindow in win32api



=SendMessage(GetActiveWindow(), 274, 61760, 0)

Declare integer SetComputerName in "kernel32" ;

String lpComputerName 



=SetComputerName("Equipo_1") 

Es mejor que la función de VFP SET DEFAULT TO
"RUTA"

Declare integer SetCurrentDirectory in "kernel32";

String lpPathName



=SetCurrentDirectory("c:")

Esta función tiene muchas
utilidades. En este ejemplo cambia el papel
tapiz de Windows, este ejemplo pide
que busque un archivo con extensión BMP para colocarlo de papel tapiz.  

Declare integer SystemParametersInfo in "user32";

Long uAction,;

Long uParam,; 

string lpvParam,;

Long fuWinIni





lfFile = getfile()



IF !empty(lfFile)

= SystemParametersInfo(20, 0,lfFile, 1)

ENDIF

Con esta función API podemos implementar la opción
SUSPENDER que viene con Windows, es decir, el equipo entrara en un estado de
hibernación.

Declare integer SetSystemPowerState in "kernel32";

Long fSuspend,;

Long fForce



=SetSystemPowerState(1,0)