Presionar "n" veces una tecla con click derecho

[Olenkaguilar]

ecfisa muchas gracias me funciona perfecto con un notepad, pero como puedo hacerlo con una ventana de chrome, por ejemplo tengo Facebook abierto

Código Delphi [-]
const
  APPNAME =  'Facebook';

Pero nada, o es la dirección de chrome c:\archivos de programas....

[ecfisa]

Hola

La función FindWindow devuelve el handle de una ventana cuando coincide con los argumentos enviados en los parametros (uno, otro o ambos) o el valor cero de lo contrario.

En mi caso, que uso Mozilla Firefox, la cadena sería:

Código Delphi [-]
const
  APPNAME =  'Facebook - Mozilla Firefox'

Con toda seguridad el nombre sea otro y la condición no se cumpla, con un simple else te avisará si está sucediendo eso:

Código Delphi [-]
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
  else 
    ShowMessage('Ventana no encontrada');
end;

Saludos