VPF::как сменить раскладку клавиатуры на компе?

BLACK_KOT

Дата 1.8.2008, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

хотел сделать типа

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721
then GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)):=68748313;
end;

но делфя меня обломала . говорит [Error] Unit1.pas(138): Left side cannot be assigned to

как раскаладку сменить на компе кто нить знает?

--------------------

.. я - демо версия Бога от Microsoft..

Rennigth

Дата 1.8.2008, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Код


var
  lLayout: array [0.. KL_NAMELENGTH] of Char;
begin
  LoadKeyboardLayout(StrCopy(lLayout, '00000419'), KLF_ACTIVATE);
end;

что-то вроде этого

--------------------

(* Honesta mors turpi vita potior *)

BLACK_KOT

Дата 1.8.2008, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

работает тока в программе, а у компа раскладку не меняет

--------------------

.. я - демо версия Бога от Microsoft..

Данкинг

Дата 1.8.2008, 20:00 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Код



function ChangeLayout(LANG: Integer): Boolean;

var

Layouts: array [0..16] of HKL;

i, Count: Integer;

begin

Result:=False;

Count:=GetKeyboardLayoutList(High(Layouts)+1, Layouts)-1;

for i:=0 to Count do if (LoWord(Layouts[i]) and $FF) = LANG then

Result:=ActivateKeyboardLayout(Layouts[i], 0)<>0;

end;

Вызов:

Код


ChangeLayout(LANG_ENGLISH);

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »