Проблема со сменой регистра

[nechto]

Пробовал уже SendMessage а оно не принимает, оно обрабатывает либо ввод с клавиатуры, либо вставку из буфера, но буфер использовать нельзя в целях безопасности

[nechto]

Проще говоря, буфер использовать мне не дают почти в приказном порядке.

[Stilet]

Так это не SendMessage не принимает а WM_CHAR...
А SendInput пробовал?

[nechto]

Пробовал. Я и SendMessage(MyEditHandle, WM_SETTEXT, 0, LParam(PChar('Hbck'))) пробовал, он и его не ест.

[Stilet]

Если не секрет что э за прога такая что не все сообщения хавает?

[nechto]

Cisco VPN Client

[Sibedir]

А это не может сам Cisco VPN Client менять регистр.

[nechto]

Нее, не может.

[Sibedir]

Вот какой глюк появился у меня. Возможно это связано с твоим глюком. Посмотри.

Создаю проект Project1.
Одна форма Form1: TForm1
Один эдит Edit1: TEdit

Создаю проект Project2.
Одна форма Form111: TForm111
Одина кнопка Button1: TButton

procedure TForm111.Button1Click(Sender: TObject);
var
  wh, eh: HWND;
begin
  wh := FindWindow ('TForm1', 'Form1');
  eh := FindWindowEx (wh, 0, 'TEdit', nil);

  keybd_event(vk_Shift, 0, 0, 0);
  PostMessage(eh, WM_KEYUP, 72, 0);
  keybd_event(vk_Shift, mapvirtualkey(vk_menu, 0), keyeventf_keyup, 0);
  PostMessage(eh, WM_KEYUP, 66, 0);
  PostMessage(eh, WM_KEYUP, 67, 0);
  PostMessage(eh, WM_KEYUP, 75, 0);
end;

Все нормально. В Edit1 записывается "Hbck".

Меняю обработчик кнопки на

procedure TForm111.Button1Click(Sender: TObject);
var
  wh, eh: HWND;
begin
  wh := FindWindow ('TForm1', 'Form1');
  eh := FindWindowEx (wh, 0, 'TEdit', nil);

  PostMessage (wh, WM_KEYUP, 60, 0); // Добавил

  keybd_event(vk_Shift, 0, 0, 0);
  PostMessage(eh, WM_KEYUP, 72, 0);
  keybd_event(vk_Shift, mapvirtualkey(vk_menu, 0), keyeventf_keyup, 0);
  PostMessage(eh, WM_KEYUP, 66, 0);
  PostMessage(eh, WM_KEYUP, 67, 0);
  PostMessage(eh, WM_KEYUP, 75, 0);
end;

А в Project2 создаю обработчик формы

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ShowMessage (IntToStr (Key));
end;

Теперь у меня в Edit1 записывается "hbck".

::: А вообще, я хотел предложить посылать сообщения всей форме или приложению. Хто его знает, как она там обрабатывает сообщения.

[nechto]

У меня подобная хрень, проблема в том, что я не могу получить полное описание того, что разработчики этого клиента там понаделали.