Как симулировать удержание нажатой клавиши?

[c0zak]

Нужно заставить машину думать что по хоткею кнопка нажимается и некоторое время удерживается, такая конструкция

keybd_event(ord(posl1[k1]), 0, 0, 0);
sleep(1500);
keybd_event(ord(posl1[k1]), 0, KEYEVENTF_KEYUP, 0);

не работает... тоесть нету эффекта удержания клавиши, она как будто нажата и тут же опущена =( может кто подскажет?

[volod3000]

SpeedButton1.AllowAllUp := True;
SpeedButton1.GroupIndex := 1; - чтобы свойство Down работало, GroupIndex
должен быть неравен нулю

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    Timer1: TTimer;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
.........................................
......................
implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 SpeedButton1.Down := True; // кнопка фиксируется в нажатом состоянии
 Timer1.Enabled := True;  // запускается таймер
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 SpeedButton1.Down := False;  // кнопка "отпускается"
 Timer1.Enabled := False;  // таймер останавливается
end;

[c0zak]

Ну это для кнопки на форме хорошо, а мне бы для кнопки клавиатуры =)

Это работает для полей ввода текста, а мне нужно именно нажатие, чтобы например работало в игрушках, вроде S-присесть и т.д.

Поизучал вопрос поподробнее и возник другой-клавиатура сама посылает автоповтор клавиши, это аппаратное... но как тогда сымитировать этот автоповтор? если я правильно понял для игрушки клавиша считается нажатой пока не пришёл код опускания, но как мне узнат время через которое должен снова прийти сигнал? (тоесть частоту повтора события нажатия)

[volod3000]

http://programmersforum.ru/showthread.php?t=58367

[c0zak]

Тоже неподходит, мне нужно не считать нажатие, а имитировать его. Для компа это идущие подряд сигналы нажатия, но почему то посылка подряд сигналов не работает в игрушках... только для полей ввода текста.