главная страница
 
|
 
гостевая книга
 
    программы
    советы по delphi
    web-мастерам
    работа в сети
    документы
    услуги
   
 
  
по сайту
 
в интернете
Переключение клавиатуры с русского на английский
procedure SetRU;
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;
procedure SetEN;
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;
Назад
Главная страница
Гостевая книга
Интернет и сети
ОС и железо
Мультимедия
Файловая система
Компоненты
Базы данных
Советы мастеров
Разное
гостевая книга
|
главная страница
|
вверх
написать нам
 
Хостинг от
uCoz