Presionar "n" veces una tecla con click derecho

[ecfisa]

Hola Olenkaguilar.

Empezado por Olenkaguilar

Segunda aplicación me refiero a mi escritorio o cualquier página web, menos el form
Oh bueno, como puedo presionar una tecla, la cantidad que me indique un Edit.text... si el Edit tiene como valor 5, presionar 5 veces la tecla "w" fuera del programa.

Te pongo un ejemplo que envía la pulsación de una tecla al Bloc de notas:

Código Delphi [-]
...
implementation

const
  APPNAME =  'Sin título: Bloc de notas';

procedure VKeyPress(const aKey: Word);
var
  ti: TInput;
begin
  ZeroMemory(@ti, SizeOf(ti));
  ti.Itype     := INPUT_KEYBOARD;
  ti.ki.wVk    := aKey;
  ti.ki.dwFlags:= 0;
  SendInput(1, ti, SizeOf(ti));
end;

// Ejemplo de llamada
procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWND;
  i,c: Integer;
begin
  h:= FindWindow(nil, PChar(APPNAME));
  c:= StrToIntDef(Edit1.Text,0);
  if (h <> 0) and (c > 0) then
  begin
    BringWindowToTop(h);
    for i:= 1 to c do
      VKeyPress($57 {'w'});
  end;
end;

Saludos