473,320 Members | 2,177 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

System caption (again)

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
8 1389
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

"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
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
* "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
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
* "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
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
* "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 thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

9
by: none | last post by:
Hello all, I wrote a shell program a few years ago in VB6 that needs to be modified. The problem I have is this: The SysAdmin uses this shell in place of Explorer, so there is no taskbar. When...
0
by: stanley j mroczek | last post by:
System.Data.SqlClient.SqlException: General network error. Check your network documentation. I know that this is not much to go on. But I don't know where to start. the program updates 186 records...
2
by: Greg Bacchus | last post by:
Hi, I'm getting an exception that really has me stumped. It's sporadic at best, it's only happened a handful of times. This particular time it happened when the user pressed 'Alt-S' to save the...
5
by: VK | last post by:
On the demo at <http://www.geocities.com/schools_ring/tmp/demo01/index.xml> the table caption has 1px(?) indentation from the left in Firefox 1.5 and I'm running out of ideas how to kill it - if...
6
by: Bob Darlington | last post by:
I want to use the caption property for fields in a recordset as a condition in a loop. That is, I only want to consider those fields which have captions: For each fld in RecordsetName.Fields If...
5
by: =?Utf-8?B?Z215ZXJz?= | last post by:
Hello, I am attempting to start a cmd.exe process and pass several .vbs scripts (with additional parameters) and then read the output from the scripts and make "notes" in a DataTable (the...
11
by: Chris Beall | last post by:
See http://pages.prodigy.net/chris_beall/Demo/photo%20block%20experiments.html I've ended up with what seems like a rather complex structure for what I thought would be a somewhat simple...
2
by: =?Utf-8?B?TmF0aGFuIFdpZWdtYW4=?= | last post by:
Hi, I am wondering why the .NET Framework is quite different from Win32 API when it comes to displaying system modal message boxes. Consider the four following types of system modal message...
1
srj115
by: srj115 | last post by:
I have a form that periodically updates an image, which in turn is supposed to update a caption. However, each time the form updates the picture, the caption remains the same as the first picture's...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
0
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
0
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.