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;