Эмуляция нажатия клавиши...... - Win Api

Zoidberg · 11.01.2007, 10:43

Привет всем.
Подскажите как эмулировать нажатие клавиши .
Заранее спасибо

Квэнди · 11.01.2007, 10:51

Опиши подробней, где надо эмулировать нажатие ?

Prowler · 11.01.2007, 11:06

API-функция sendmessage - смотри msdn.

Zoidberg · 11.01.2007, 15:08

Плиз хелп есть текст программы для эмуляции нажатия НАМЛУКА обьясните пожалуйста бедному ламаку

procedure TForm1.Button1Click(Sender: TObject);
Var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1
else
KeyState[VK_NUMLOCK] := 0;
SetKeyboardState(KeyState);
end;

Что здесь и как.

zetrix · 11.01.2007, 18:44

procedure TForm1.Button1Click(Sender: TObject);
Var
KeyState: TKeyboardState; //переменная - состояние клавы
begin
GetKeyboardState(KeyState); //получение текущего состояния клавы, запись его в нашу переменную
if (KeyState[VK_NUMLOCK] = 0) then //проверяем включен ли намлок
KeyState[VK_NUMLOCK] := 1 //если нет, то включаем
else
KeyState[VK_NUMLOCK] := 0; //если включён, то выключаем
SetKeyboardState(KeyState); //устанавливаем новый статус клавы (изменённый)
end;

11.01.2007, 10:43	#1
Zoidberg Регистрация: 07.01.2007 Сообщений: 5	Эмуляция нажатия клавиши...... Привет всем. Подскажите как эмулировать нажатие клавиши . Заранее спасибо

11.01.2007, 10:51	#2
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Опиши подробней, где надо эмулировать нажатие ? ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

11.01.2007, 11:06	#3
Prowler Форумчанин Регистрация: 30.11.2006 Сообщений: 128	API-функция sendmessage - смотри msdn. nosce te ipsumj...

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Эмуляция нажатия нескольких клавиш	-=Shad0www	Общие вопросы Delphi	3	12.05.2008 08:13
Опредиление времени нажатия клавиши	Antonio86	Общие вопросы Delphi	1	29.04.2008 20:48
Емулиривание нажатия клавиши	xTANATOSx	Win Api	9	10.10.2007 21:46
Эмуляция нажатия кнопки F3	Dimixis	Помощь студентам	4	17.06.2007 23:42
Эмуляция нажатия клавиши при отметке Checkbox	delphi_beginner	Win Api	3	02.06.2007 10:07

11.01.2007, 15:08	#4
Zoidberg Регистрация: 07.01.2007 Сообщений: 5	Плиз хелп есть текст программы для эмуляции нажатия НАМЛУКА обьясните пожалуйста бедному ламаку procedure TForm1.Button1Click(Sender: TObject); Var KeyState: TKeyboardState; begin GetKeyboardState(KeyState); if (KeyState[VK_NUMLOCK] = 0) then KeyState[VK_NUMLOCK] := 1 else KeyState[VK_NUMLOCK] := 0; SetKeyboardState(KeyState); end; Что здесь и как.

11.01.2007, 18:44	#5
zetrix Delphi/C++/C# Участник клуба Регистрация: 29.10.2006 Сообщений: 1,972	procedure TForm1.Button1Click(Sender: TObject); Var KeyState: TKeyboardState; //переменная - состояние клавы begin GetKeyboardState(KeyState); //получение текущего состояния клавы, запись его в нашу переменную if (KeyState[VK_NUMLOCK] = 0) then //проверяем включен ли намлок KeyState[VK_NUMLOCK] := 1 //если нет, то включаем else KeyState[VK_NUMLOCK] := 0; //если включён, то выключаем SetKeyboardState(KeyState); //устанавливаем новый статус клавы (изменённый) end;