XProfan

Français

Systemsprache ou bien Usersprache abfragen de Dieter Zornow.

Def GetSystemDefaultLangID(0) ! "Kernel32","GetSystemDefaultLangID"
Def VerLanguageName(3) ! "Kernel32","VerLanguageNameA"
Def GetUserDefaultLangID(0) ! "Kernel32","GetUserDefaultLangID"
Déclarer LangID&, UserlangID&,dll&,long#
dll& = Usedll("kernel32.dll")
Faible long#,50
LangID& = GetSystemDefaultLangID(0)
VerLanguageName(langID&,long#,40)
Imprimer string$(long#,0)
Dispose long#
freedll dll&
waitinput

je denke une Dimessionierung de 50 devrait ausreichen

Viele Grüße aus Bangkok

Dieter

03.08.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Systemsprache ou bien Usersprache abfragen
de Dieter Zornow
Def GetSystemDefaultLangID(0) ! Kernel32,GetSystemDefaultLangID
Def VerLanguageName(3) ! Kernel32,VerLanguageNameA
Def GetUserDefaultLangID(0) ! Kernel32,GetUserDefaultLangID
Déclarer LangID&, UserlangID&,dll&,long#
dll& = Usedll(kernel32.dll)
Faible long#,50
LangID& = GetSystemDefaultLangID(0)
VerLanguageName(langID&,long#,40)
Imprimer string$(long#,0)
Dispose long#
freedll dll&
waitinput