Bonjour,
Je pense qui il doit y avoir une fonction qui permette de recuperer la langue de windows non ?
Si oui quelqu un l a connait ?
Merci d avance
Bonjour,
Je pense qui il doit y avoir une fonction qui permette de recuperer la langue de windows non ?
Si oui quelqu un l a connait ?
Merci d avance
Salut,
Personnellement, j'utilise quelque chose comme ca:
Ca semble marcher.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 var LanguageID : LangID; {fait parti de Windows.Pas} begin LanguageID := GetSystemDefaultLangId; case LanguageID of $040c, $080c, $0c0c, $100c, $140c : {FRANCAIS}; $0407, $0807, $0c07, $1007, $1407 : {GERMANIQUE}; else {ENGLAIS}; end;{case}
Voilà tous les codes retournée par GetSystemDefaultLangId
0x devient $ en Delphi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107 Identifier Locale 0x0000 Language Neutral 0x0400 Process Default Language 0x0401 Arabic (Saudi Arabia) 0x0801 Arabic (Iraq) 0x0c01 Arabic (Egypt) 0x1001 Arabic (Libya) 0x1401 Arabic (Algeria) 0x1801 Arabic (Morocco) 0x1c01 Arabic (Tunisia) 0x2001 Arabic (Oman) 0x2401 Arabic (Yemen) 0x2801 Arabic (Syria) 0x2c01 Arabic (Jordan) 0x3001 Arabic (Lebanon) 0x3401 Arabic (Kuwait) 0x3801 Arabic (U.A.E.) 0x3c01 Arabic (Bahrain) 0x4001 Arabic (Qatar) 0x0402 Bulgarian 0x0403 Catalan 0x0404 Chinese (Taiwan) 0x0804 Chinese (PRC) 0x0c04 Chinese (Hong Kong) 0x1004 Chinese (Singapore) 0x0405 Czech 0x0406 Danish 0x0407 German (Standard) 0x0807 German (Swiss) 0x0c07 German (Austrian) 0x1007 German (Luxembourg) 0x1407 German (Liechtenstein) 0x0408 Greek 0x0409 English (United States) 0x0809 English (United Kingdom) 0x0c09 English (Australian) 0x1009 English (Canadian) 0x1409 English (New Zealand) 0x1809 English (Ireland) 0x1c09 English (South Africa) 0x2009 English (Jamaica) 0x2409 English (Caribbean) 0x2809 English (Belize) 0x2c09 English (Trinidad) 0x040a Spanish (Traditional Sort) 0x080a Spanish (Mexican) 0x0c0a Spanish (Modern Sort) 0x100a Spanish (Guatemala) 0x140a Spanish (Costa Rica) 0x180a Spanish (Panama) 0x1c0a Spanish (Dominican Republic) 0x200a Spanish (Venezuela) 0x240a Spanish (Colombia) 0x280a Spanish (Peru) 0x2c0a Spanish (Argentina) 0x300a Spanish (Ecuador) 0x340a Spanish (Chile) 0x380a Spanish (Uruguay) 0x3c0a Spanish (Paraguay) 0x400a Spanish (Bolivia) 0x440a Spanish (El Salvador) 0x480a Spanish (Honduras) 0x4c0a Spanish (Nicaragua) 0x500a Spanish (Puerto Rico) 0x040b Finnish 0x040c French (Standard) 0x080c French (Belgian) 0x0c0c French (Canadian) 0x100c French (Swiss) 0x140c French (Luxembourg) 0x040d Hebrew 0x040e Hungarian 0x040f Icelandic 0x0410 Italian (Standard) 0x0810 Italian (Swiss) 0x0411 Japanese 0x0412 Korean 0x0812 Korean (JoHab) 0x0413 Dutch (Standard) 0x0813 Dutch (Belgian) 0x0414 Norwegian (Bokmal) 0x0814 Norwegian (Nynorsk) 0x0415 Polish 0x0416 Portuguese (Brazilian) 0x0816 Portuguese (Standard) 0x0418 Romanian 0x0419 Russian 0x041a Croatian 0x0c1a Serbian 0x041b Slovak 0x041c Albanian 0x041d Swedish 0x081d Swedish (Finland) 0x041e Thai 0x041f Turkish 0x0421 Indonesian 0x0422 Ukrainian 0x0423 Belarusian 0x0424 Slovenian 0x0425 Estonian 0x0426 Latvian 0x0427 Lithuanian 0x081a Serbian 0x0429 Farsi 0x042d Basque 0x0436 Afrikaans 0x0438 Faeroese![]()
MD Software
---------------------------
F.A.Q. Delphi - Cours Delphi - Composants Delphi - Sources Delphi
Faudra faire attention ... la fonction GetSystemDefaultLangId retourne la langue par défaut, cela veux dire que si vous avez plusieurs langues installée, cette fonc vous retourne uniquement la langue paramétrée dans les options régionales du paneau de config.
allez sur le msdn et vous trouverez les détails http://support.microsoft.com/default.aspx?scid=kb;en-us;181604
Partager