Como Crear Programa Que Pulse Una Tecla Continuamente?

[ecfisa]

Hola darkcuevas.

Podrías utilizar un TTimer para simular la presión continua de una tecla y para tu segunda pregunta, aprovechar el evento OnKeyPress del form.

Ejemplo : ( en un TForm poné un TTimer y un TEdit o un TMemo para visualizar el resultado )

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:= True;
  Timer1.Enabled:= False;
  Timer1.Interval:= 250;  // 1/4 seg (o lo que gustes)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  keybd_event(Ord('A'),0,0,0);  // simular tecla presionada
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  Msg: TMsg;
begin
  if (ssCtrl in Shift) and (Key = Ord('A')) then  // Ctrl + A
  begin
    PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE); //Quitar Beep
    Timer1.Enabled:= not Timer1.Enabled;  // Activar/Desactivar TTimer
  end;
end;
...

La repetición de pulsación de tecla se activa/desactiva con Ctrl+A.


Un saludo.

[Casimiro Noteví]

Y felizmente, darkcuevas, ha obtenido el código realizado muy inteligentemente por ecfisa, un código creado coherentemente en el que repite constantemente una tecla repetidamente hasta que el usuario decida convenientemente que ya no debe repetirse ininterrumpidamente.

[[Caral]]

Hola
Y colorin, colorado......
Saludos

[darkcuevas]

Empezado por ecfisa

Hola darkcuevas.

Podrías utilizar un TTimer para simular la presión continua de una tecla y para tu segunda pregunta, aprovechar el evento OnKeyPress del form.

Ejemplo : ( en un TForm poné un TTimer y un TEdit o un TMemo para visualizar el resultado )



La repetición de pulsación de tecla se activa/desactiva con Ctrl+A.


Un saludo.

hola quetal bueno ya prove el codigo que pulsa la tecla


pero no entiendo como calocar el de acceso rapido me podrias explicas un poco mejor como colocarlo?? porfavor

no entiendo bn lo del evento dime como lo pondrias tu paso por paso si no es mucha molestia

(soy algo nuevo en este asunto)


haaa y que conponente es este FormKeyDown???

[Casimiro Noteví]

El form tiene el evento keydown, escribe el código en él.

[darkcuevas]

mira yo escrivo el codigo en el evento pero nada al conpilar y marcar ctrl+a no pasa nada

[Casimiro Noteví]

Bueno, en el ejemplo que ha puesto ecfisa es ctrl+A mayúscula.

[darkcuevas]

no nada

[Casimiro Noteví]

Empezado por darkcuevas

no nada

¿No nada,? ¡qué!, te recomiendo que leas nuestra guía de estilo, es que no somos adivinos