Ermitteln der aktuellen Sprache des Systems

NOS · Verfasst: Fr 16.11.07 19:13

Hallo und guten Abend,

ich suche eine Function zur Ermittlung der aktuellen Sprache des laufenden Betriebssystems. Könnt Ihr mir da weiterhelfen ?

Grüße,

_________________
Ich liebe es wenn ein Plan funktioniert ! Aber teilweise sind es die Pläne der Anderen, die besser funktionieren :-)

bis11 · Beiträge: 1247 Erhaltene Danke: 2 Apple Mac OSX 10.11

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

Function WindowsLanguage : String;
var Language : PChar;
begin
  Language:= StrAlloc( 200 );
  VerLanguageName( GetSystemDefaultLangID, Language, 199 );
  Result:= StrPas( Language );
  StrDispose( Language );
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme