FoxPro/Visual FoxPro - Función SHGetSpecialFolderPath de API...

Logré utilizar una función del API interesante, puedes obtener los directorios configurados en Windows no comunes, el código es el siguiente:

FUNCTION GetPicsDir(nHex) && Número Hexadecimal
LOCAL STRING sPathP
Declare Long SHGetSpecialFolderPath In "shell32.dll" ;
Long hWnd, String @sPath, Long Folder, Long Create

sPathP = SPACE(261) && Tamaño del string de 261 espacios en blanco.

= SHGetSpecialFolderPath(1, @sPathP, nHex, .F.) && Llama el valor al API.
*--- NOTA: @variable, pasa el parametro por referencia, es decir para que
*--- sea modificado y retorne su valor.

sPathP = LEFT(sPathP,AT(Chr(0),sPathP) - 1) && Asigna el valor del Path.

RETURN sPathP

ENDFUNC

Espero les sirva. Saludos desde Guatemala.
Draker

**** EJEMPLOS:

? GetPicsDir(1)) && Path de Menú de Inicio\Programas del usuario actual.
? GetPicsDir(5)) && Path de Mis Documentos del usuario actual.
? GetPicsDir(6)) && Path de Favoritos del usuario actual.
? GetPicsDir(7)) && Path de Menú de Inicio\Programas\Inicio del usuario actual.
? GetPicsDir(B)) && Path de Escritorio del usuario actual.
? GetPicsDir(11)) && Path de Menú de Inicio del usuario actual.
? GetPicsDir(13)) && Path de Mi música del usuario actual.
? GetPicsDir(20)) && Path de Windows\Fonts
? GetPicsDir(22)) && Path de Menú de Inicio de todos los usuarios.
? GetPicsDir(23)) && Path de Menú de Inicio\Programas de todos los usuarios.
***** Continua....
NOTA: Recuerden que los números en la función son hexadecimales.

Espero les sirva. Saludos desde Guatemala.
Draker

***** EJEMPLOS 2:

? GetPicsDir(24)) && Path de Menú de Inicio\Programas\Inicio de todos los usuarios.
? GetPicsDir(31)) && Path de Favoritos de todos los usuarios.
? GetPicsDir(36)) && Path de Windows.
? GetPicsDir(37)) && Path de Windows\System32..
? GetPicsDir(38)) && Path de Archivos de programa.
? GetPicsDir(39)) && Path de Mis Imágenes del usuario actual.
? GetPicsDir(43)) && Path de Archivos de programa\Archivos comunes.
? GetPicsDir(53)) && Path de Mi música de todos los usuarios.
? GetPicsDir(54)) && Path de Mis Imágenes de todos los usuarios.
**** Etc.
NOTA: Recuerden que los números en la función son hexadecimales.

Espero les sirva. Saludos desde Guatemala.
Draker

Hola:

ANte todo gracias, por brindar tu ejm al Foro, he escuchado hablar de API, OCX, pero la verdad no se como usarlos.
Se manejar los formulairos con sus clases, pero no donde aplicar o insertar estos API u OCX.
Me interesaria saber como.

Gracias nuevamente.