Cambia la etiqueta (label) del disco pasado como
parámetro.

DECLARE INTEGER SetVolumeLabel IN KERNEL32.DLL ;

STRING @ lpRootPathName, ;

STRING @ lpVolumeName



IF SetVolumeLabel(_C:\_+CHR(0),_nombreacolocar_ + CHR(0)) = 1

    =messagebox("Cambiada la etiqueta")

ELSE

    =messagebox("Problemas cambiando la Etiqueta")

ENDIF

Alguna vez me enviaron una pregunta de como
cambiar el titulo de una ventana; bueno esta es la declaración para hacerlo.

Para probar el ejemplo abra la ventana del Panel
de Control y coloque el siguiente código en un botón, vera como cambia el
titulo de la ventana del panel de Control. Primero se obtiene el handle de la
ventana a cambiarle el titulo y luego se le pasa a la función el handle y el
nuevo titulo.

ENDIF

Declare Integer SetWindowPos In "user32" ; 

Integer hwnd , ; 

Integer hWndInsertAfter , ; 

Integer x ,; 

Integer y , ; 

Integer cx ,; 

Integer cy ,; 

Integer wFlags 



Declare Integer FindWindow In "user32" As "FindWindowA" ; 

String lpClassName, ; 

String lpWindowName 

Ventana = FindWindowA("Shell_traywnd","") 

=SetWindowPos (Ventana, 0, 0, 0, 0, 0, 128 ) && oculta 

Wait windows "barra ocultada" time 3

=SetWindowPos (Ventana, 0, 0, 0, 0, 0, 64) && muestra 

Declare integer SHAddToRecentDocs in "Shell32" ;

Long lFlags,;

Long lPv 





=SHAddToRecentDocs(0,0)

wait windows "Espere un momento" timeout 3

Otra utilidad es agregar archivos a la
carpeta de documentos; es decir aparecerá un acceso directo al archivo
pasado como parámetro; podemos establecer además en que posición se
agregara el archivo; en esta caso en la posición 2.

Declare integer SHAddToRecentDocs in "shell32.dll";

Long uFlags, String ByVal





NewFile="d:cool.avi"

nF=SHAddToRecentDocs(2,NewFile) 

Declare integer ShellAbout in "shell32.dll" ;

Long hwnd, String szApp, String szOtherStuff, Long hIcon





=ShellAbout(0, "La Web de Davphantom", "Copyright 2000", 0)

Declare integer ShowCursor in "user32";

Long cursorestado



=showcursor(0)   && oculta el cursor

Para mostrarlo 

=showcursor(1)

una implementación de esta función es abrir el cuadro de diálogo
"Buscar", a través del cual Windows realiza sus
búsquedas. Esta utiliza algunos parámetros como, desde cual
directorio quiere empezar la búsqueda, el archivo a buscar
entre otros. Prueba modificando algunos valores y aprenderás un
poco más.

Declare integer ShellExecute in "shell32.dll"
;

integer hWnd,;

String lpOperation,;

String lpFile,;

String lpParameters,;

String lpDirectory,;

Long nShowCmd 



=ShellExecute(0, "Find", "", "","c:",
0)

Se
utiliza para ejecutar cualquier archivo con su respectivo
programa asociado. Incluye además algunos otros procedimientos
como imprimir, editar, abrir; dependiendo el parámetro que se le
mande a la función.

DECLARE INTEGER ShellExecute IN "Shell32.dll"
;

INTEGER hwnd, ;

STRING lpVerb, ;

STRING lpFile, ;

STRING lpParameters, ;

STRING lpDirectory, ;

LONG nShowCmd

* Abre el documento  "c:prueba.doc"  Este documento debe
existir

=Shellexecute(0,"Open","c:prueba.doc","","",0)



* Abre el explorador por defecto en la pagina de Davphantom

=Shellexecute(0,"Open","http://www.davphantom.cjb.net","","",0)

* Imprime el archivo "c:autoexec.bat" este archivo debe existir

=Shellexecute(0,"Print","c:autoexec.bat","","",0)

DECLARE INTEGER SHEmptyRecycleBin IN Shell32 ;

INTEGER hWnd, ;

STRING @lpszRootPath, ;

INTEGER dwFlags

#define SHERB_NOCONFIRMATION 0x00000001

#define SHERB_NOPROGRESSUI 0x00000002

#define SHERB_NOSOUND 0x00000004





lcDrive = "C:" + CHR(0) 

SHEmptyRecycleBin( 0, lcDrive, 1 )

* cuando el flag es 1 no se muestra mensaje para confirmar
el 

vaciado y si el flag es 0 si muestra el
mensaje

Declare integer Sleep in "kernel32" ;

Long dwMilliseconds



=Sleep(5000)   

&& Impide la actualización de la ventana por 5
segundos 

Podemos realizar llamadas a
través del marcador de teléfono de Windows, pasándole los parámetros a
este, es una forma fácil de incluir en tus aplicaciones procedimientos
profesionales de una manera sencilla.

Declare Long tapiRequestMakeCall in "TAPI32.DLL";

String DestAddress,;

String AppName,;

String CalledParty,;

String Comment 



Numero = "6690725"

NombreProg = "c:windowsdialer.exe"

llamandoa = "David"

ValDev = tapiRequestMakeCall(Numero, NombreProg, llamandoa ,"hola como estas") 

Declare Integer waveOutGetNumDevs in "winmm.dll" () 



inf = waveOutGetNumDevs()

If inf > 0 Then

     =MessageBox ("Tarjeta de sonido soportada.")

Else

    =MessageBox "Tarjeta de sonido no soportada.")

endif

DECLARE INTEGER WNetAddConnection IN "mpr.dll" ;

STRING cRemoteName, ;

STRING cPassword, ;

STRING cLocalName





cResource = "\SERVIDORUNIDADRED"

cPassword = "password"

cDriveLetter = "Y:" 



? WNetAddConnection(cResource, cPassword, cDriveLetter)

Si no es posible la conexión esta enviara un valor de error

que puede ser
interceptado.

DECLARE INTEGER WNetCancelConnection IN "mpr.dll" ;

STRING cName, ;

INTEGER nForce





nForce = 1 && Forza a la desconexión



=WNetCancelConnection("Y:",0)

DECLARE INTEGER WNetConnectionDialog IN WIN32API ;

INTEGER hWnd, ;

INTEGER nResourceType



DECLARE INTEGER GetActiveWindow IN WIN32API



IF WNetConnectionDialog(GetActiveWindow(),1) = 0

    =messagebox("La conexión establecida")

ELSE

   =messagebox("Nno fue posible la conexión")

ENDIF