
04.04.2009, 16:16
|
|
Новичок
Регистрация: 07.03.2009
Сообщений: 5
Провел на форуме: 6146
Репутация:
0
|
|
эмуляция нажатия любой клавиши...
Эмуляция нажатий клавиш - как я делал в 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..
|
|
|