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

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

Форум программистов > Delphi: WinAPI и системное программирование > Как нажать сочетания клавишь?

Автор: COOLHack 10.2.2008, 16:09

Как программно, в чужой программе нажать сочетания клавишь Ctrl+s? Программу нужно указать по её зендлу. Её хендл мне известен.

З.Ы. Искал в гугле, нашол только код, который в моей проге жмёт сочетания клавишь, вообшем жду примера кода, буду длагодарен
smile

Автор: COOLHack 10.2.2008, 17:09

Пробывал так: SendMessage(a,WM_SYSCOMMAND,VK_CONTROL+Ord('S'),0);

Не работает, помогите плиз!

Автор: THandle 12.2.2008, 22:07

Например в блокноте:

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  h : thandle;
begin
    h := findwindow('Notepad', nil);
    SetForegroundWindow(h);
    keybd_event(VK_CONTROL, 0, 0, 0);
    keybd_event(Ord('S'), 0, 0, 0);
    keybd_event(Ord('S'), 0, KEYEVENTF_KEYUP, 0);
    keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
end;

Автор: COOLHack 12.2.2008, 22:09

Пасиб!!! РаботаеТ!!! ОГРОМНЫЙ РЕСПЕКТ!

Автор: THandle 12.2.2008, 22:10

COOLHack, пометь тему как решенную smile

Автор: COOLHack 12.2.2008, 22:13

Тема закрыТа