Delphi - keybd_event

Hola:
En este foro, he visto una pregunta muy curiosa que me ha llamado la atención y es referente a la función <<keybd_event>>.

En un ejemplo que ha puesto un compañero:

begin
keybd_event(VK_RETURN,0,0,0);
keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0);
end;

Esto lo he probado en un notepad y he visto que funciona pero... ¿ cómo puedo hacer que escriba un caracter ??

Un saludo y gracias.

Mikel

Puedes usar la funcion vkKeyscan para traducir un caracter a su virtual-key code que es lo que necesitamos.

var
c: char;
begin
c:= 'a';
keybd_event(VkKeyScan(c),0,0,0);
keybd_event(VkKeyScan(c),0,KEYEVENTF_KEYUP,0);
end;