By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
459,654 Members | 1,513 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 459,654 IT Pros & Developers. It's quick & easy.

System caption (again)

P: n/a
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


Nov 20 '05 #1
Share this Question
Share on Google+
8 Replies


P: n/a
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

Nov 20 '05 #2

P: n/a

"dick" <di**@nospam.com> ha scritto nel messaggio
news:%2****************@TK2MSFTNGP11.phx.gbl...
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

Thank you for answer. But I'm looking for a method to retrieve these system
caption (in the language of O.S.) without translate their. Bye.

W
Nov 20 '05 #3

P: n/a
Hi, Wally

Did you try SendMessage with WM_GETTEXTLENGTH and WM_GETTEXT?

HTH
Alex

"Wally" <va****@nospamcambieri.it> wrote in message
news:oj***********************@news3.tin.it...

"dick" <di**@nospam.com> ha scritto nel messaggio
news:%2****************@TK2MSFTNGP11.phx.gbl...
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

Thank you for answer. But I'm looking for a method to retrieve these

system caption (in the language of O.S.) without translate their. Bye.

W

Nov 20 '05 #4

P: n/a
* "AlexS" <sa***********@SPAMsympaticoPLEASE.ca> scripsit:
Did you try SendMessage with WM_GETTEXTLENGTH and WM_GETTEXT?


?!?
Private Declare Function VerLanguageName Lib "kernel32" Alias
"VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal [...]

Thank you for answer. But I'm looking for a method to retrieve these

system
caption (in the language of O.S.) without translate their. Bye.


'VerLanguageName' is used to get the name of a language as string, it
won't solve your problem.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>
Nov 20 '05 #5

P: n/a
Start with first and then proceed with second.

HTH
Alex

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:2h************@uni-berlin.de...
* "AlexS" <sa***********@SPAMsympaticoPLEASE.ca> scripsit:
Did you try SendMessage with WM_GETTEXTLENGTH and WM_GETTEXT?


?!?
Private Declare Function VerLanguageName Lib "kernel32" Alias
"VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal [...] Thank you for answer. But I'm looking for a method to retrieve these

system
caption (in the language of O.S.) without translate their. Bye.


'VerLanguageName' is used to get the name of a language as string, it
won't solve your problem.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

Nov 20 '05 #6

P: n/a
* "AlexS" <sa***********@SPAMsympaticoPLEASE.ca> scripsit:
Start with first and then proceed with second.


I doubt that you understood the question. On what window would you use
'WM_GETTEXT', and for what reason?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>
Nov 20 '05 #7

P: n/a
On control itself. To get the caption text. Original question was about
button.
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:2h************@uni-berlin.de...
* "AlexS" <sa***********@SPAMsympaticoPLEASE.ca> scripsit:
Start with first and then proceed with second.


I doubt that you understood the question. On what window would you use
'WM_GETTEXT', and for what reason?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

Nov 20 '05 #8

P: n/a
* "AlexS" <sa***********@SPAMsympaticoPLEASE.ca> scripsit:
On control itself. To get the caption text. Original question was about
button.


The original question was about how to get the localized strings for
Cancel, OK, Abort, Retry, etc. buttons.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>
Nov 20 '05 #9

This discussion thread is closed

Replies have been disabled for this discussion.