Teclado Virtual

[[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;