Billentyüzet lenyomásának imitálása
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;