VB5: Hoe kan ik de taal van windows detecteren

[anoniem]

Hoi, Heeft er iemand een idee hoe ik met een VB5-programma kan vaststellen wat de taal van windows is. Bedankt op voorhand. Guido

[anoniem]

waarschijnlijk met een API

[anoniem]

Ff zoeken en dan krijg je dit: Module: [code:1:49e74e51b7]'Function, which we need for the detection of Windows' language Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long 'Determine the Windows language Public Function GetWindowsLanguage(UseEnglishName As Boolean) As String Dim Buffer As String Dim Ret As String Buffer = String$(256, 0) If UseEnglishName Then Ret = GetLocaleInfo(ByVal GetSystemDefaultLCID, 4097, Buffer, Len(Buffer)) Else Ret = GetLocaleInfo(ByVal GetSystemDefaultLCID, 4, Buffer, Len(Buffer)) End If If Ret > 0 Then GetWindowsLanguage = Left$(Buffer, Ret - 1) Else GetWindowsLanguage = "" End If End Function [/code:1:49e74e51b7]