| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно получить текущую раскладку клавы [D5, Win95/98, WinME]
Dimich © (2002-01-25 14:32:00)Как можно получить текущую раскладку клавы и отобразить например на label.
XM-AD (2002-01-25 15:30:00) [1]function GetLanguage: string;
var
p: PChar;
begin
GetMem(p, KL_NAMELENGTH);
try
GetKeyboardLayoutName(p);
Result := p;
finally
FreeMem(p, KL_NAMELENGTH);
end;
end;
////Где то там////
slan:=GetLanguage;
if slan="00000409" then Panel2.Caption:="En";
if slan="00000419" then Panel2.Caption:="Ru";
dimich (2002-01-25 14:34:00) [2]Если можно пример, а то менять через *Layout* умею а тобразить текую нет...если можно отошлите пример на мыло!
| |
