Teclado Virtual

[elcolo83]

Hola a todos... Miren, tengo este inconveniente, estoy usando esta funcion

Código Delphi [-]
Procedure PulsarTecla(Code: word);
begin
keybd_event(Code, MapvirtualKey(Code, 0),0,0);
keybd_event(Code, MapvirtualKey(Code, 0),KEYEVENTF_KEYUP,0);
end;

...para simular pulsaciones del teclado... el problema es que solo me anda para las letras y teclas como ENTER, TEB, CONTROL, etc. pero no me funciona para un punto (.), coma(,), guion (-)
Alguno sabe en que le estoy errando???
Gracias

[[cHackAll]]

Código Delphi [-]
procedure SendKeys(lpStr: PChar);
var vk: Word; bScan: Byte;
begin
 if Assigned(lpStr) then
  while lpStr[0] <> #0 do
   begin
    vk := VkKeyScan(lpStr[0]);
    bScan := MapVirtualKey(vk, 0);
    if Boolean(Hi(vk)) then
     keybd_event(VK_SHIFT, $2A, 0, 0);
    keybd_event(vk, bScan, 0, 0);
    keybd_event(vk, bScan, KEYEVENTF_KEYUP, 0);
    if Boolean(Hi(vk)) then
     keybd_event(VK_SHIFT, $2A, KEYEVENTF_KEYUP, 0);
    Inc(lpStr);
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.SetFocus;
 SendKeys('Esta, es una prueba para verificar más de 6 caracteres emulados.'#13'');
end;

[elcolo83]

Muchas gracias cHackAll eso era lo que necesitaba, anda joya!!!
Saludos