FoxPro/Visual FoxPro - Malas noticias Juan Jaime

Cuando un usuario instala el sistema operativo Windows, puede elegir en que unidad desea guardar todo S.O., esto significa que la Carpeta WINDOWS puede estar en C:, D:, E:, etc. incluso la carpeta Windows puede tener otro nombre. Existen nombres identificavos para carpetas estos nombres no se cambian y ese el que necesito ( por ejemplo la carpeta Escritorio se llama Desktop)
Ayudadme.

LOCAL llHorror
llHorror = .F.

ON ERROR llHorror = .T.
* Comprobar el sistema
if 'Windows NT' $ OS(1) OR 'Windows 5.00' $ OS(1) OR 'Windows 5.01' $ OS(1) &&Windows NT o windows 2000
lcDirectoriSistema = ADDBS(ALLTRIM(GETENV("windir")))+"SYSTEM32"
else
lcDirectoriSistema = ADDBS(ALLTRIM(GETENV("windir")))+"SYSTEM"
endif

IF llHorror
lcMensaje = txt("Error en busqueda del directorio del sistema. ") + chr(10)
ENDIF