XProfan

Español

Systemsprache oder Usersprache abfragen de Dieter Zornow.

Def GetSystemDefaultLangID(0) ! "Kernel32","GetSystemDefaultLangID"
Def VerLanguageName(3) ! "Kernel32","VerLanguageNameA"
Def GetUserDefaultLangID(0) ! "Kernel32","GetUserDefaultLangID"
Declarar LangID&, UserlangID&,dll&,Lang#
dll& = Usedll("kernel32.dll")
Dim lang#,50
LangID& = GetSystemDefaultLangID(0)
VerLanguageName(langID&,lang#,40)
Imprimir cadena$(lang#,0)
Disponer lang#
freedll dll&
waitinput

Yo denke una Dimessionierung de 50 debería ausreichen

Viele Grüße de Bangkok

Dieter

03.08.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Systemsprache oder Usersprache abfragen
de Dieter Zornow
Def GetSystemDefaultLangID(0) ! Kernel32,GetSystemDefaultLangID
Def VerLanguageName(3) ! Kernel32,VerLanguageNameA
Def GetUserDefaultLangID(0) ! Kernel32,GetUserDefaultLangID
Declarar LangID&, UserlangID&,dll&,Lang#
dll& = Usedll(kernel32.dll)
Dim lang#,50
LangID& = GetSystemDefaultLangID(0)
VerLanguageName(langID&,lang#,40)
Imprimir cadena$(lang#,0)
Disponer lang#
freedll dll&
waitinput