|
|
Как узнать, какой язык активен в 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;
Как видно из кода язык будет отображаться в компоненте TEdit |
| Категория: Примеры на Delphi7 | Добавил: DelphiAiX (28.07.2011)
|
| Просмотров: 1070
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
