Systemsprache oder Usersprache abfragen

David Strutz, 03.08.2005 21:18: Systemsprache oder Usersprache abfragen von Dieter Zornow.[code:1:48c1937426]Def GetSystemDefaultLangID(0) ! "Kernel32","GetSystemDefaultLangID"
Def VerLanguageName(3) ! "Kernel32","VerLanguageNameA"
Def GetUserDefaultLangID(0) ! "Kernel32","GetUserDefaultLangID"

Declare LangID&, UserlangID&,dll&,Lang#

dll& = Usedll("kernel32.dll")
Dim lang#,50
LangID& = GetSystemDefaultLangID(0)
VerLanguageName(langID&,lang#,40)
Print string$(lang#,0)
Dispose lang#
freedll dll&
waitinput[/code:1:48c1937426]
Ich denke eine Dimessionierung von 50 müsste ausreichen
Viele Grüsse aus Bangkok
Dieter

'Systemsprache oder Usersprache abfragen

Beitrag, 15.07.2007 20:11: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: 'Systemsprache oder Usersprache abfragen ' von Dieter Zornow Def GetSystemDefaultLangID(0) ! "Kernel32","GetSystemDefaultLangID" Def VerLanguageName(3) ! "Kernel32","VerLanguageNameA" Def GetUserDefaultLangID(0) ! "Kernel32","GetUserDefaultLangID" Declare LangID&, UserlangID&,dll&,Lang# dll& = Usedll("kernel32.dll") Dim lang#,50 LangID& = GetSystemDefaultLangID(0) VerLanguageName(langID&,lang#,40) Print string$(lang#,0) Dispose lang# freedll dll& waitinput

Dies ist die Offlinevariante vom Thread [Systemsprache oder Usersprache abfragen].