Не срабатывает отсыл сочетаний клавиш

[DIgorevich]

По нажатию горячей клавиши вызывается процедура, которая вставляет в активное поле набора (в основном Word) указанный текст. Перед этим туда же посылается сочетание клавиш, которые форматируют вводимый текст. Но столкнулся с такой проблемой: включение и выключение горячих клавиш срабатывает не всегда и даже не через раз. Зависимости не нашел. А если поставить галочки на все пункты (жирный, курсивом, подчеркнутый), то все сразу сочетания клавиш посылаются только с третьей-четвертой попытки, а не с первой, как вроде по коду должно. Прошу помочь разобраться, код привожу.

function CtrlDown : Boolean;
var
  State : TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[vk_Control] and 128) <> 0);
end;

function ShiftDown : Boolean;
var
  State : TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[vk_Shift] and 128) <> 0);
end;

function AltDown : Boolean;
var
  State : TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[vk_Menu] and 128) <> 0);
end;



procedure inse(ttk: Boolean; text:string);
Var
  vGuiInfo:TGUIThreadInfo;
  i:Integer;
  al, sh, ct: Boolean;
begin
  vGuiInfo.cbSize:=SizeOf(TGUIThreadInfo);
  GetGUIThreadInfo(GetWindowThreadProcessId(GetForegroundWindow),vGuiInfo);
  sh:=False;
  al:=False;
  ct:=False;
  //Проверяем и запоминаем состояние управляющих клавиш
  if ShiftDown then   sh:= True;
  if AltDown then   al:= True;
  if CtrlDown then   ct:= True;
  //Принудительно отжимаем управляющие клавиши
    keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
    keybd_event(VK_MENU, MapVirtualKey(VK_MENU,0), KEYEVENTF_KEYUP, 0);
    keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT,0), KEYEVENTF_KEYUP, 0);
  if ttk then
    begin
     if Form3.TKB.Checked then   //Если стоит птичка, то посылаем Ctrl+B, делаем жирным
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('B'), MapVirtualKey(Ord('B'), 0), 0, 0);
        keybd_event(Ord('B'), 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
      end;
     if Form3.TKI.Checked then //Если стоит птичка, то посылаем Ctrl+I, делаем курсивом
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('I'), MapVirtualKey(Ord('I'), 0), 0, 0);
        keybd_event(Ord('I'), 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
      end;
     if Form3.TKU.Checked then //Если стоит птичка, то посылаем Ctrl+U, делаем подчеркнутым
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('U'), MapVirtualKey(Ord('U'), 0), 0, 0);
        keybd_event(Ord('U'), 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
      end;
    end;
    //Вставляем текст
      for i:= 1 to Length(text) do
        begin
          PostMessage(vGuiInfo.hwndFocus, wm_Char, Word(text[i]), 0);
          Application.ProcessMessages;
        end;
  if ttk then
    begin
     if Form3.TKB.Checked then   //Если стоит птичка, то посылаем Ctrl+B, делаем нежирным
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('B'), MapVirtualKey(Ord('B'), 0), 0, 0);
        keybd_event(Ord('B'), 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
      end;
     if Form3.TKI.Checked then //Если стоит птичка, то посылаем Ctrl+I, делаем не курсивом
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('I'), MapVirtualKey(Ord('I'), 0), 0, 0);
        keybd_event(Ord('I'), 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
      end;
     if Form3.TKU.Checked then //Если стоит птичка, то посылаем Ctrl+U, делаем не подчеркнутым
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('U'), MapVirtualKey(Ord('U'), 0), 0, 0);
        keybd_event(Ord('U'), 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
      end;
    end;
  //Восстанавливаем состояние управляющих клавиш
  if ct then   keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), 0, 0);
  if al then   keybd_event(VK_MENU, MapVirtualKey(VK_MENU,0), 0, 0);
  if sh then   keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT,0), 0, 0);
end;

Пример вызова процедуры:

inse(false, '(Техническая съемка.)');

[Кольша]

Возможно, надо посылать не активному окну, а компоненты(классу) который лежит на этом окне и принимает текст...определить его класс и имя для поиска можно через spy++

[DIgorevich]

Да отсыл-то текста сам по себе проходит всегда и успешно, потому что посылается именно активному компоненту

 vGuiInfo.cbSize:=SizeOf(TGUIThreadInfo);
  GetGUIThreadInfo(GetWindowThreadProcessId(GetForegroundWindow),vGuiInfo);

 PostMessage(vGuiInfo.hwndFocus, wm_Char, Word(text[i]), 0);

А вот сочетания клавиш отсылаются не всегда. Подозреваю, что где-то я перемудрил с отжатием-нажатием управляющих клавиш, но решение пока найти не могу.

[Кольша]

Procedure 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;
//может так?

[Аватар]

Я бы не делал принудительное отжимание и восстановление состояния управляющих клавиш. Проверку можно сделать, предупредить и не посылать данные в поле ввода, если какая-то из них нажата. Без этого все нормально работает, если не одна из них не нажата, а так абракадабристо, особенно с Alt и Shift

[DIgorevich]

Дело в том, что сама процедура "inse(false, '(Техническая съемка.)'); вызывается по нажатию глобальной горячей клавиши. То есть схематично это выглядит так:
программа висит себе где-нибудь фоном,
нажимается горячая клавиша (сочетание в данном случае),
в активном поле ввода (word) шрифт меняется на курсив/жирный/подчеркнутый (в зависимости от указанных настроек),
вводится текст выбранным шрифтом,
шрифт меняется в исходное положение (убирается курсив/жирный/подчеркнутый).
Сделал небольшой проектик для демонстрации. Просто запустить программу, поставить нужные галочки. Программу свернуть. Запустить word (openoffice) и по нажатию комбинации Ctrl+Shift+J смотреть, что вводиться в документ.
Получается через раз, особенно если поставить сразу две или три галочки.
test.rar

[DIgorevich]

Ребят, помощь все еще нужна!

[Аватар]

//    keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
//    keybd_event(VK_MENU, MapVirtualKey(VK_MENU,0), KEYEVENTF_KEYUP, 0);
//    keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT,0), KEYEVENTF_KEYUP, 0);
  if ttk then
    begin
     if Form1.TKB.Checked then   //Если стоит птичка, то посылаем Ctrl+B, делаем жирным
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('B'), MapVirtualKey(Ord('B'), 0), KEYEVENTF_EXTENDEDKEY, 0);
        keybd_event(Ord('B'), 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
        Sleep(50);
      end;
     if Form1.TKI.Checked then //Если стоит птичка, то посылаем Ctrl+I, делаем курсивом
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('I'), MapVirtualKey(Ord('I'), 0), KEYEVENTF_EXTENDEDKEY, 0);
        keybd_event(Ord('I'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
        Sleep(50);
      end;
     if Form1.TKU.Checked then //Если стоит птичка, то посылаем Ctrl+U, делаем подчеркнутым
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('U'), MapVirtualKey(Ord('U'), 0), KEYEVENTF_EXTENDEDKEY, 0);
        keybd_event(Ord('U'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
        Sleep(50);
      end;
    end;

    //Вставляем текст
      for i:= 1 to Length(text) do
        begin
          PostMessage(vGuiInfo.hwndFocus, wm_Char, Word(text[i]), 0);
          Application.ProcessMessages;
        end;

  if ttk then
    begin
     if Form1.TKU.Checked then //Если стоит птичка, то посылаем Ctrl+U, делаем не подчеркнутым
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('U'), MapVirtualKey(Ord('U'), 0),KEYEVENTF_EXTENDEDKEY, 0);
        keybd_event(Ord('U'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
        Sleep(50);
      end;
     if Form1.TKI.Checked then //Если стоит птичка, то посылаем Ctrl+I, делаем не курсивом
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('I'), MapVirtualKey(Ord('I'), 0), KEYEVENTF_EXTENDEDKEY, 0);
        keybd_event(Ord('I'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
        Sleep(50);
      end;
     if Form1.TKB.Checked then   //Если стоит птичка, то посылаем Ctrl+B, делаем нежирным
      begin
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
        keybd_event(Ord('B'), MapVirtualKey(Ord('B'), 0), KEYEVENTF_EXTENDEDKEY, 0);
        keybd_event(Ord('B'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);
        Sleep(50);
      end;
    end;

  //Восстанавливаем состояние управляющих клавиш
//  if ct then   keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), 0, 0);
//  if al then   keybd_event(VK_MENU, MapVirtualKey(VK_MENU,0), 0, 0);
//  if sh then   keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT,0), 0, 0);

[DIgorevich]

Аватар, большое спасибо. Про sleep-то я и не подумал.