Как узнать, какой язык активен в Windows

Для этого можно воспользоваться следующей функцией.

function WhichLanguage:string; 
var 
 ID:LangID; 
 Language: array [0..100] of char; 
begin 
 ID:=GetSystemDefaultLangID; 
 VerLanguageName(ID,Language,100); 
 Result:=String(Language); 
end; 
 
Пример вызова этой функции: 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 Edit1.Text:=WhichLanguage; 
end;

Также, для определения активного языка можно воспользоваться функцией GetUserDefaultLangID.

 
faq/delphi/system/active_language_in_windows.txt · Последние изменения: 2006/05/14 14:39 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki