Algo sencillo:
Código Delphi
[-]
procedure Pulsar(Key: Byte);
begin
keybd_event(Key, 0, 0, 0);
keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;
La utilizariamos, por ejemplo asi:
Código Delphi
[-]
Pulsar(Ord('A'));
Pulsar(VK_F1);
En la ayuda teclea "Virtual key codes" para ver la lista de teclas que puedes usar