Показать сообщение отдельно

эмуляция нажатия любой клавиши...
  #7  
Старый 04.04.2009, 16:16
OLISAV
Новичок
Регистрация: 07.03.2009
Сообщений: 5
Провел на форуме:
6146

Репутация: 0
Post эмуляция нажатия любой клавиши...

Эмуляция нажатий клавиш - как я делал в Delphi...

Пишешь процедурку...

procedure TForm1.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;
потом вызываешь её когда тебе нужно:


SetKey(13); //ASCII код Enter-а...

Если начнет ругаться - значит какой-то uses нужно добавить... У меня были такие:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, mmsystem;

Последний раз редактировалось OLISAV; 04.04.2009 в 16:18..
 
Ответить с цитированием