Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Вывод расскладки клавиатуры в Tedit

Автор: Second 13.6.2005, 00:11

Как в edit1.text вывести текущую расскладку системы?

Автор: The MASTER 13.6.2005, 00:37

Код


function PrintLanguage:string;  
var  
ID:LangID;  
Language: array [0..100] of char;  
begin  
 ID:=GetSystemDefaultLangID;   
 VerLanguageName(ID,Language,100);   
 Result:=String(Language);   
end;  

....
Edit1.text:=PrintLanguage;