Нажатие клавиши F11 - Общие вопросы Delphi

sashaxD · 19.05.2011, 09:36

Нужен исходник программы которая нажимает и отпускает клавишу F11 желательно в любом окне. Я новичок, не ругайте.
За ранее спасибо.

Swarog · 19.05.2011, 14:14

работает ил нет на знаю просто нашел пример

К сожалению работает хорошо, только когда фокус у вызывающего окна, в противном случае может глючить

Код:

procedure TForm1.SetKey(Key:Integer);
begin
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

Применение

Код:

SetKey(VK_SCROLL);
SetKey(VK_CAPITAL);

sashaxD · 19.05.2011, 15:19

В гугле я все попробовал вроде.
Ошибку показывает в строчке procedure TForm1.SetKey(Key:Integer);
Когда запускаю билд.

Человек_Борща · 20.05.2011, 13:06

АП & ДАУН.

Текст ошибки в студию.

raxp · 20.05.2011, 13:51

Цитата:

Когда запускаю билд.

это еще какой билд?

fate · 20.05.2011, 14:27

sashaxD используй winapi функцию SendInput

sashaxD · 21.05.2011, 12:27

Цитата:

Сообщение от fate

sashaxD используй winapi функцию SendInput

Это вроде для С++ , а мне надо на делфи.

Цитата:

Сообщение от Человек_Борща

.

Текст ошибки в студию.

Undeclared indentifier SetKey
Undeclared indentifier Key

Stilet · 21.05.2011, 17:31

Цитата:

а мне надо на делфи.

А ее и в Делфи можно использовать:
http://www.programmersforum.ru/showt...t=18011&page=2

sashaxD · 22.05.2011, 11:50

Цитата:

Сообщение от Stilet

А ее и в Делфи можно использовать:
http://www.programmersforum.ru/showt...t=18011&page=2

Не работает ((( Можете просто дать исходник такой программы?

19.05.2011, 09:36	#1
sashaxD Пользователь Регистрация: 19.05.2011 Сообщений: 48	Нажатие клавиши F11 Нужен исходник программы которая нажимает и отпускает клавишу F11 желательно в любом окне. Я новичок, не ругайте. За ранее спасибо.

19.05.2011, 14:14	#2
Swarog Форумчанин Регистрация: 26.01.2010 Сообщений: 215	работает ил нет на знаю просто нашел пример К сожалению работает хорошо, только когда фокус у вызывающего окна, в противном случае может глючить Код: `procedure TForm1.SetKey(Key:Integer); begin keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0); keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); end;` Применение Код: `SetKey(VK_SCROLL); SetKey(VK_CAPITAL);` Могу лишь пнуть в нужном направлении (ну или как получится)

19.05.2011, 15:19	#3
sashaxD Пользователь Регистрация: 19.05.2011 Сообщений: 48	asdsa В гугле я все попробовал вроде. Ошибку показывает в строчке procedure TForm1.SetKey(Key:Integer); Когда запускаю билд.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Реакция на нажатие клавиши.	Vaigard	Общие вопросы Delphi	4	30.12.2010 18:39
Нажатие клавиши...	Basketman	Общие вопросы Delphi	1	11.02.2010 09:35
Долгое нажатие клавиши в KeyDown как одно нажатие	marina15056	Общие вопросы Delphi	7	16.08.2009 00:22
Как заблокировать горячие клавиши Alt+F11	kovalevskivf	Microsoft Office Excel	2	20.05.2009 11:26
Нажатие клавиши	format	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	1	05.05.2008 15:25

20.05.2011, 13:06	#4
Человек_Борща Старожил Регистрация: 30.12.2009 Сообщений: 11,434	АП & ДАУН. Текст ошибки в студию.

20.05.2011, 14:27	#6
fate Форумчанин Регистрация: 17.03.2009 Сообщений: 318	sashaxD используй winapi функцию SendInput