Показать сообщение отдельно
  #2  
Старый 02.01.2023, 22:33
l2grom l2grom вне форума
Прохожий
 
Регистрация: 01.01.2023
Сообщения: 2
Версия Delphi: Delphi 10
Репутация: 10
По умолчанию

Цитата:
Сообщение от l2grom
Здравствуйте, весь интернет излазил но так и не нашел, примеров много но все они в водят в заблуждения и походу сами не понимают, что они отправляют приложению, код символа
keybd_event(90, 0, KEYEVENTF_KEYUP, 0);

или код нажатой клавиши. ЕСТЬ РАЗНИЦА, ОТПРАВИТЬ КОД НАЖАТОЙ КНОПКИ X И КОД СИМВОЛА РАСКЛАДКИ X.

Если кто-то когда-то смог реализовать то поясните пожалуйста, как это реализовать. Спасибо.

все, что ниже распознается как не кнопка и код отправленный чем угодно
Код:
keybd_event(VK_F1,Lo(MapVirtualKey(VK_F1,1)),KEYEVENTF_EXTENDEDKEY,1); (*нажатие*)
keybd_event(VK_F1,Lo(MapVirtualKey(VK_F1,1)),KEYEVENTF_KEYUP,1); (*отпускание*)

SendMessage(592216,WM_KEYDOWN,VK_F1,0);
SendMessage(592216,WM_KEYUP,VK_F1,0);

PostMessage(592216, WM_KEYDOWN, VK_F1, 0);
PostMessage(592216, WM_KEYUP, VK_F1, 0);

  for I := 1 to Length(Str) do
   begin
     // press
    Inp.Itype := INPUT_KEYBOARD;
     Inp.ki.wVk := Ord(UpCase(Str[i]));
     Inp.ki.dwFlags := 0;
     SendInput(1, Inp, SizeOf(Inp));

     // release
    Inp.Itype := INPUT_KEYBOARD;
     Inp.ki.wVk := Ord(UpCase(Str[i]));
     Inp.ki.dwFlags := KEYEVENTF_KEYUP;
     SendInput(1, Inp, SizeOf(Inp));

     Application.ProcessMessages;
     Sleep(80);
   end;

lmikle: пользуемся тегами.
==============================================

весь это код распознается не как нажатая клавиша, а как код отправленный. я ищю способ нажать кнопку и что-бы она была воспрринята как нажатая кнопка а не КОД ТАБЛИЦЫ КЛАВИАТУРЫ
Ответить с цитированием