GetUserDefaultUILanguage

GetUserDefaultUILanguage

Postby Manuel Valdenebro » Wed Apr 02, 2008 3:41 pm

Quisiera usar la función de Windows GetUserDefaultUILanguage(), para conocer el lenguaje por defecto de cada máquina. Lo he intentado con ShellExecute, pero no reconoce esa función.- ¿Podría hacerlo de otra forma?.

Muchas gracias
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Postby Antonio Linares » Wed Apr 02, 2008 4:58 pm

Manuel,

Puedes implementarla usando DLL FUNCTION ... ó directamente en C usando #pragma BEGINDUMP ... #pragma ENDDUMP
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Manuel Valdenebro » Wed Apr 02, 2008 6:20 pm

Antonio,

Muchas gracias por tu ayuda. Aquí dejo el código por si alguien lo necesitara:

#pragma BEGINDUMP
HB_FUNC(GETLANGUAGE)
{
hb_retnl( GetUserDefaultUILanguage( ) ) ;
}
#ENDDUMP

Esta función devuelve un código (español = 3082) que corresponde al idioma de cada máquina. En internet hay una lista con todos los códigos y su correspondiente lengua.
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Postby Antonio Linares » Wed Apr 02, 2008 6:32 pm

Manuel,

La función con los includes necesarios:
Code: Select all  Expand view  RUN
#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( GETUSERDEFAULTUILANGUAGE )
{
   hb_retnl( GetUserDefaultUILanguage( ) ) ;
}

#pragma ENDDUMP
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Manuel Valdenebro » Wed Apr 02, 2008 9:45 pm

Antonio Linares wrote:Manuel,

La función con los includes necesarios:


Antonio, muchisimas gracias, ha funcionado correctamente.

Es una función muy util en programas multilenguajes, ya que permite, desde su instalación, elegir la lengua del usuario.

Todo ha sido mas fácil de lo que pensaba.
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 36 guests