Esta función envia teclas a un objeto las veces que que queramos. Es muy sencilla y util.
Código Delphi
[-]
Procedure SendKey(Letra: Byte; LetraFuncion: Byte; i: Integer; Obj: TWinControl);
El primer parametro es la letra. La segunda si incluimos una tecla de función. El tercer parametro las veces y el último el objeto. Aqui la tienen
Código Delphi
[-]
Procedure SendKey(Letra:Byte;LetraFuncion:Byte;i:Integer;Obj:TWinControl);
var j:Integer;
Begin
For j:=1 to i do Begin
If LetraFuncion <> 255 then
Begin
keybd_event(LetraFuncion,0,0,0);
keybd_event(Letra,0,0,0);
keybd_event(LetraFuncion,0,KEYEVENTF_KEYUP,0);
keybd_event(Letra,0,KEYEVENTF_KEYUP,0);
end
else
Begin
keybd_event(Letra,0,0,0);
keybd_event(Letra,0,KEYEVENTF_KEYUP,0);
end;
end;
If Obj <> nil then Obj.SetFocus;
end;