Программное нажатие клавиши на клавиатуре

@megostudent · Регистрация: 15.02.2011

Студворк — интернет-сервис помощи студентам

подскажите как программно нажать клавишу на клавиатуре, например "1"???

@megostudent · 26.09.2011, 23:24 **[ТС]**

блин зачёт!) даже мой компьютер закрыло)
ток сделал так

Delphi
1
2
3
4
5
6
7
var
  handle: HWND;
begin
  handle := FindWindow(nil, 'Мой компьютер');
  PostMessage(handle,WM_KEYDOWN,VK_F1,1);  //Нажимает на кнопку NumPad3
PostMessage(handle,WM_KEYUP,VK_F1,1);
end;

и ничего не сделалось(

deathNC · 26.09.2011, 23:32

Блин. Ща, найду исходники перебора всех контролов. Мож, чего и получится

deathNC · 27.09.2011, 00:33

Вот как у меня это получилось:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall;
begin
  PostMessage(Wd, WM_KeyDown, byte('F'), 1);
  Result := true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  hWindow: HWND;
begin
  hWindow := Self.Handle;
  // перебираем все дочерние формы
  EnumChildWindows(hWindow, @EnumProc, 0);
end;

Тут у меня на форме был TEdit, и в нём появились буковки...
Функция EnumChildWindows перебирает все дочерние контролы...

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@megostudent 4 / 4 / 2 Регистрация: 15.02.2011 Сообщений: 78

	Программное нажатие клавиши на клавиатуре 23.09.2011, 17:26. Показов 7969. Ответов 42 Метки нет (Все метки) подскажите как программно нажать клавишу на клавиатуре, например "1"??? 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	26.09.2011, 23:32
	Блин. Ща, найду исходники перебора всех контролов. Мож, чего и получится 0