I've found a vb6 example:
(you must do the translation yourself)
'0 = Language Neutral
'1024 = Process Default Language
'1030 = Danish
'1031 = German (Standard)
'1032 = Greek
'1033 = English (United States)
'2057 = English (United Kingdom)
'3081 = English (Australian)
'4105 = English (Canadian)
'5129 = English (New Zealand)
'6153 = English (Ireland)
'7177 = English (South Africa)
'8201 = English (Jamaica)
'9225 = English (Caribbean)
'10249 = English (Belize)
'11273 = English (Trinidad)
'1034 = Spanish (Traditional Sort)
'3082 = Spanish (Modern Sort)
'1035 = Finnish
'1036 = French (Standard)
'1040 = Italian (Standard)
'1043 = Dutch (Standard)
'2067 = Dutch (Belgian)
'1044 = Norwegian (Bokmal)
'2068 = Norwegian (Nynorsk)
'1045 = Polish
'2070 = Portuguese (Standard)
'1049 = Russian
Private Declare Function VerLanguageName Lib "kernel32" Alias
"VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize
As Long) As Long
Private Sub Form_Paint()
'KPD-Team 2000
'URL:
http://www.allapi.net/
'E-Mail:
KP*****@allapi.net
Dim Buffer As String
Buffer = String(255, 0)
VerLanguageName 2067, Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
MsgBox Buffer
End Sub
"Wally" <va**********@cambieri.it> wrote in message
news:wl***********************@news4.tin.it...
Hi all.
I need to retrieve caption of system buttons. For example: in italian o.s.
Cancel button is "Annulla", in english o.s. it is "Cancel" and so on. I
need to install my application on different operative systems. Is there an API
or another way to retrieve those system caption?
Thanks.
W