Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Отправить сообение в Неактивное окно

Автор: Exai1e 24.1.2008, 19:42

Здрасти, перерыл весь форум ненашел. вопрос: как отправить сообщение (нажатии клавишы) в не активное окно
в активное отправляется

Код


procedure TForm2.btnStartClick(Sender: TObject);
var
  font:HWND;
  cols:array[1..3] of HWND;
  H:hWnd;
  i:integer;
begin

  H := FindWindow( nil, 'Безымянный - Блокнот');


  SetForegroundWindow(H);
  sleep(10);
  SetForegroundWindow(H);
  sleep(10);
  SendKey(VK_DELETE);
end;

вот а в неактивное с темже названием не отпавляет :( т.к. устанавливается активное окно, но только одно, как установить и второе ?
Спасибо

Код


procedure SendKey(Key: Word);
begin
  keybd_event(Key,0,0,0);
  keybd_event(Key,0,KEYEVENTF_KEYUP,0);
end;

p.s. два окна по заголовку одинаковые, а заголовки менять они не разрешают :(

Автор: CompWorm 25.1.2008, 00:21

...по его хендлу. посмотри винспайём или WinSight32...
или зарание олтлови его...