Текущий архив: 2008.04.27;
Скачать: CL | DM;

Вниз

Имитация нажатия клавиши enter   Найти похожие ветки 

← →
Ньюб   (2008-03-31 21:10) [0]

Подскажите, что не так

procedure TForm1.PressEnter( Sender: TObject );
var
 ScanCode : byte;
begin
 ScanCode:=Lo(MapVirtualKey(VK_RETURN,0));
 keybd_event(VK_RETURN,ScanCode,0,0);
 keybd_event(VK_RETURN,ScanCode,KEYEVENTF_KEYUP,0);
end;

---

← →
Реактор   (2008-03-31 21:13) [1]

ой, извините, заработало :)

---

← →
имя   (2008-03-31 22:13) [2]

Удалено модератором

---

Страницы: 1 вся ветка

Текущий архив: 2008.04.27;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.018 c