Entwickler-Ecke

Windows API - Ermitteln der aktuellen Sprache des Systems


NOS - Fr 16.11.07 19:13
Titel: Ermitteln der aktuellen Sprache des Systems
Hallo und guten Abend,

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

Grüße,


bis11 - Fr 16.11.07 21:59


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;