DECLARE SHORT SetFileAttributes IN KERNEL32 ;

STRING @ lpFileName, ;

INTEGER dwAttributes



DECLARE INTEGER GetFileAttributes IN WIN32API STRING @ lpFileName

#DEFINE FILE_ATTRIBUTE_READONLY 1

=SetFileAttributes(_c:config.sys_,
BITOR(GetFileAttributes(_c:config.sys_),FILE_ATTRIBUTE_READONLY)) 

* Atributo de
solo lectura 

=SetFileAttributes(_c:config.sys_, 0) 

&& Remueve todos los atributos
del archivo

DECLARE SHORT GetKeyboardState IN WIN32API STRING @; pbKeyState



cKeyboardArray = REPLICATE(CHR(0),256)

IF GetKeyboardState(@cKeyboardArray) > 0

         LOCAL nI

         FOR nI = 1 TO 256

              IF BITAND(ASC(SUBST(cKeyboardArray,nI,1)),128) > 0

                  
? _Virtual Key # _ + TRANSFORM(nI - 1) + _ is currently down_

              ENDIF

        ENDFOR

ELSE

        =messagebox("Error")

ENDIF

DECLARE SHORT GetKeyState in WIN32API INTEGER KEYCODE



&& Evalúa si esta presionada la tecla SHIFT

IF (GETKEYSTATE(16) < 0)

    MESSAGEBOX("Shift presionado")

ENDIF



&& Evalúa si esta presionada la tecla CONTROL (CTRL)

IF (GETKEYSTATE(17) < 0)

      MESSAGEBOX("CTRL presionado")

ENDIF



&& Evalúa si esta presionada la tecla ALT

IF (GETKEYSTATE(18) < 0)

     MESSAGEBOX("Alt presionado")

ENDIF

DECLARE INTEGER GetShortPathName IN Win32API ;

STRING @cLongPath, ;

STRING @cShortPathBuff, ;

INTEGER nBuffSize



lcLongFile = getfile()  && muestra el cuadro de dialogo buscar
archivo

lcBuffer = SPACE(511)

lnBufferSize = 511

lnShortPathLen = GetShortPathName(lcLongFile, @lcBuffer, @lnBufferSize)



lcShortPath = LEFT(lcBuffer, lnBufferSize)

=messagebox(lcShortPath)

Devuelve
el valor del color en formato RGB de los objetos y
ventanas de Windows

DECLARE INTEGER GetSysColor IN Win32API
INTEGER nObject

tnObjectNumber = 2  &&
Ventana Activa

 

lnWinCol =
GetSysColor(tnObjectNumber)

lnSq256 = 256 ^ 2

lnRedGrn = MOD( lnWinCol, lnSq256 )

lcBlue = TRANSFORM( INT( lnWinCol/lnSq256 ) )

lcGreen = TRANSFORM( INT( lnRedGrn/256) )

lcRed = TRANSFORM( MOD( lnRedGrn,256) )

? (lcRed + "," + lcGreen + "," +
lcBlue)

Estas
son las constantes para los elementos de Windows y se hace referencia
ellos con la variable tnObjectNumber

1 
Background (Windows Desktop)

2 
Title Bar (Active Window)

3 
Title Bar (Inactive Window)

5 
Window Background

9 
Title Bar Caption Text (Active Window)

19 
Title Bar Caption Text (Inactive Window)

13 
Highlighted Item Background

14 
Highlighted Item Text

17 
Command Button

18  Command Button Text

Do Case iNiWin

     Case = 1

         =MESSAGEBOX("A prueba de Fallos")

     Case = 2

         =MESSAGEBOX("A prueba de fallos con soporte de Red")

Otherwise

     =MESSAGEBOX("Windows inicio normalmente")

Endcase

Devuelve los valores acerca de la configuración del monitor, resolución,
numero de colores soportados, entre otros. útil para programación multimedia.

Declare integer GetSystemMetrics in "user32",; 

Long nIndex 





resolucionX = GetSystemMetrics()

resolucionY = GetSystemMetrics()



=messagebox(str(resolucionX)+" X"+ str(resolucionY))

Muestra el cuadro de diálogo para comprobar el password del
protector de pantalla actual de Window

Declare integer VerifyScreenSavePwd in "password.cpl" Long hwnd



= VerifyScreenSavePwd(thisform.hwnd)



If Ret = 1 Then



=MessageBox "Password correcto o este ScreenSaver no tiene asociado Password "

Else

=MessageBox "Password Incorrecto"

EndIf

Permite conectarse a Internet utilizando la conexión
existente u otra. Muy Buena

#DEFINE INTERNET_AUTODIAL_FORCE_ONLINE 1 

#DEFINE INTERNET_AUTODIAL_FORCE_UNATTENDED 2 



DECLARE INTEGER InternetDial IN wininet.dll;

INTEGER hwndParent, STRING @ lpszConnectoid, ;

INTEGER dwFlags, INTEGER @ lpdwConnection, ;

INTEGER dwReserved



DECLARE INTEGER InternetAutodial IN wininet.dll; 

INTEGER dwFlags, INTEGER hwndParent



DECLARE INTEGER InternetAutodialHangup IN wininet.dll; 

INTEGER dwReserved 



* Conecta con una conexión determinada

strConnection = "Internet"

nConnection = 0



*= InternetDial(0, strConnection, INTERNET_AUTODIAL_FORCE_UNATTENDED, ;

* nConnection, 0)



* Conecta con la conexión por defecto

= InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) 



* Conecta mostrando el cuadro de conexión

*= InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) 



* Disconecta

*= InternetAutodialHangup(0) 

DECLARE INTEGER GetActiveWindow IN user32 

DECLARE INTEGER GetWindowDC IN user32 INTEGER hwnd 



DECLARE INTEGER TextOut IN gdi32;

INTEGER hdc, INTEGER x, INTEGER y,; 

STRING lpString, INTEGER nCount 



lcText = "La Web de Davphantom" 



hwnd = GetActiveWindow() 

hdc = GetWindowDC (hwnd) 



= TextOut (hdc, 50, 100, lcText, Len(lcText)) 

Permiten
realizar acciones sobre directorios

API para Crear Directorio

 

DECLARE INTEGER CreateDirectory IN WIN32API ;

STRING cNewDir, ;

STRING cAttrib

tcDirName = "c:dav"

lnSuccess = CreateDirectory ( tcDirName, "")

lcRetVal = IIF( lnSuccess = 1, "Creado", "Fallo" )

Api para Eliminar Directorio

DECLARE INTEGER RemoveDirectory IN WIN32API ;

STRING cKillDir

tcDirName ="c:dav"

 

lnSuccess = RemoveDirectory( tcDirName)

lcRetVal = IIF( lnSuccess = 1, "Removed", "Failed" )

Devuelve la ruta del directorio donde instalado Windows

DECLARE INTEGER GetWindowsDirectory IN Win32API ;

STRING @cBuffer, ;

INTEGER nSize



lcSysDir = REPLICATE(CHR(0),255)

lnBuffer = 255



lnDirLen = GetWindowsDirectory( @lcSysDir, lnBuffer )

lcRetVal = LEFT( lcSysDir, lnDirLen )

? lcRetVal

Devuelve
la ruta del directorio System de Windows

DECLARE INTEGER GetSystemDirectory IN Win32API ;

STRING @cBuffer, ;

INTEGER nSize



lcSysDir = REPLICATE(CHR(0),255)

lnBuffer = 255





lnDirLen = GetSystemDirectory( @lcSysDir, lnBuffer )

lcRetVal = LEFT( lcSysDir, lnDirLen )

?lcRetVal

Cambia el cursor de Windows a uno especificando el nombre de
este.

LOCAL lcNewCursor

tcCursorFile = "c:windowscursorsglobe.ANI"

tnCursorType = 32513



IF INLIST( JUSTEXT( tcCursorFile ), _CUR_, _ANI_ )

      

       IF FILE( tcCursorFile )

           DECLARE INTEGER LoadCursorFromFile in Win32Api String

           DECLARE SetSystemCursor in Win32Api Integer, Integer

          
lcNewCursor = LoadCursorFromFile( tcCursorFile )

           Lt = SetSystemCursor( lcNewCursor, tnCursorType )



      ELSE

         
=MESSAGEBOX("No se encuentra el cursor")

      ENDIF

ELSE

      =MESSAGEBOX("No es del tipo cursor")

ENDIF