Difference between revisions of "Windows system language/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting; deleted category included in page template) |
||
| (One intermediate revision by one other user not shown) | |||
| Line 1: | Line 1: | ||
{{Windows system language}} | {{Windows system language}} | ||
| − | + | ||
| − | Zurück zur Seite [[code examples/de|Code Beispiele]]. | + | |
| − | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. | |
| − | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | |
| − | Die Prozedur ermittelt die aktuelle Systemsprache von Windows. | + | |
| − | + | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | |
| − | <syntaxhighlight> | + | |
| + | Die Prozedur ermittelt die aktuelle Systemsprache von Windows. | ||
| + | |||
| + | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
Windows, ...; | Windows, ...; | ||
| Line 24: | Line 27: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 12:04, 4 March 2020
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Prozedur ermittelt die aktuelle Systemsprache von Windows.
uses
Windows, ...;
...
function funWindowsSprache:String;
var
chrCountry: array [0..255] of char;
begin
GetLocaleInfo(GetSystemDefaultLCID, LOCALE_SLANGUAGE,
chrCountry, SizeOf(chrCountry) - 1);
Result := chrCountry;
end;
...
