Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Library: Windows API / MS.NET Framework API (https://www.delphipraxis.net/20-library-windows-api-ms-net-framework-api/)
-   -   Delphi Aktuelle Systemsprache von Windows (https://www.delphipraxis.net/6544-aktuelle-systemsprache-von-windows.html)

Daniel B 14. Jul 2003 19:23


Aktuelle Systemsprache von Windows
 
Hallo,

hiermit kann man sich die aktuelle Systemsprache anzeigen lassen:
Delphi-Quellcode:
function GetLang: String;
var
  LanguageID: LangID;
  LanguageString: Array[0..100] of Char;
begin
  LanguageID := GetSystemDefaultLangID;
  VerLanguageName(LanguageID, LanguageString, SizeOf(LanguageString));
  Result := LanguageString;
end;
So aufrufen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetLang);
end;
Grüsse, Daniel :hi:


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf