Billentyű imitálása

Top  Previous  Next

Ha a Timer1 alapban van beállítva, másodpercenként egy nagy A betüt nyom, mindegy, hogy milyen applikációban van a windows.

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), 0,0);

(shift le)

keybd_event(65,0, 0, 0); (a -betü le)

keybd_event(65,0, KEYEVENTF_KEYUP, 0); (a -betü fel)

keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), KEYEVENTF_keyup,0);

(shift fel)

end;