Editar sobre otros procesos.

[rauros]

Sí, me vale lo de las teclas. Estoy provando con una cosa pero me faltan algunas variables por declarar. El ejemplo es este:

http://www.clubdelphi.com/foros/showthread.php?t=31113

Pero no sé que tipo es hwndWinamp ni rtrim.

¿Y en ese ejemplo donde tengo que poner la manera de llegar a esa aplicación?
¿O tiene que ser la que está delante de todas?

He visto FindWindow(nil,pchar(rtrim(gWindowName))), ¿El nombre va en el campo nil?

[rauros]

Qué cojones es esto?

[[duilioisola]]

FindWindow(nil,pchar(rtrim(gWindowName)))
No he podido ver el hilo que comentas, pero FindWindow debe ser una funcion para devolver el handle de una ventana dando su nombre

gWindowName es un string.
RTrim es una función que corta los espacios en blanco de la derecha de la cadena
pchar() convierte a un string en una cadena como las que se utilizan en C.
En Pascal y Delphi los string se definían como un byte que dice qué longitud tiene y luego los caracteres que lo componen.
En C, los string son caracteres que terminan en un caracter especial que marca el final.

El handle es finalmente un entero.

Con esto podrás saber cual es el handle de una ventan de la cual sabes el nombre. Luego, utilizando ese handle podrás enviarle información a esa ventana (teclas en tu caso).

[rauros]

¿Entonces RTrim no es necesario si no escribo espacios? Es que delphi me dice que no tengo RTrim declarado...

¿Y en GWindowName pongo el nombre de la aplicación, no?

Código Delphi [-]
 hwndWinamp := FindWindow(nil,pchar(rtrim(gWindowName))); //localizamos la ventana

  IF hwndWinamp = 0 THEN BEGIN
     hwndWinamp := FindWindow(pchar(rtrim(gWindowName)),nil); //gWindowName es una variable que contiene 
//el handle de la ventana sobre la que debemos actuar
     IF hwndWinamp = 0 THEN BEGIN
       ShowMessage(gWindowName + ' Ventana NO ENCONTRADA');
       exit;
     end;
  END;
  SetForegroundWindow(hwndWinamp); //pasamos a esa ventana
  SetForegroundWindow(hwndWinamp);
  //Aqui tienes varios ejemplos de envio de pulsaciones de teclas
  PostKeyEx32(VK_HOME, [], TRUE);          
  PostKeyEx32(VK_END, [SSsHIFT], TRUE);
  PostKeyEx32(VK_INSERT, [ssCtrl], TRUE); 
  SetForegroundWindow(Handle); //De esta manera volvemos a nuestra aplicacion    
  PostKeyEx32(ord('V'), [SSCTRL], TRUE);

Ahí está el ejemplo. Lo pongo porque no se como debo declarar HwndWinamp.
He probado con HwndWinamp: handle; pero no funciona porque lo más seguro es que me lo haya inventado xD.

[[duilioisola]]

Supongo que si declaras HWndWinamp como integer y gWindowName com string será suficiente.
De todos modos, supongo que si te pones sobre la función FindWindow y presionas F1, te dará algo de información sobre esta API. (No tengo el Delphi para probar ahora)

mira este hilo que creo que solucionará todas tus dudas

[rauros]

He conseguido compilar pero no encuentra ninguna ventana... Os puedo dejar el código para que me lo corrijan? (no es mucho)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  gWindowName:='firefox.exe';
  hwndWinamp := FindWindow(nil,pchar(trim(gWindowName))) ; //localizamos la ventana

  IF hwndWinamp = 0 THEN BEGIN
     hwndWinamp := FindWindow(pchar(trim(gWindowName)),nil) ; //gWindowName es una variable que contiene
//el handle de la ventana sobre la que debemos actuar
     IF hwndWinamp = 0 THEN BEGIN
       ShowMessage(gWindowName + ' Ventana NO ENCONTRADA');
       exit;
     end;
  END;
  SetForegroundWindow(hwndWinamp); //pasamos a esa ventana
  SetForegroundWindow(hwndWinamp);
  //Aqui tienes varios ejemplos de envio de pulsaciones de teclas
  PostKeyEx32(VK_HOME, [], TRUE);
  PostKeyEx32(VK_END, [SSsHIFT], TRUE);
  PostKeyEx32(VK_INSERT, [ssCtrl], TRUE);
  SetForegroundWindow(Handle); //De esta manera volvemos a nuestra aplicacion
  PostKeyEx32(ord('V'), [SSCTRL], TRUE);
end;

He empezado provando con firefox pero siempre me dice
firefox.exe VENTANA NO ENCONTRADA

[Neftali [Germán.Estévez]]

Prueba cambiando el primer parámetro del FindWindow por:

PChar('MozillaUIWindowClass')

Que es la clase para la ventana principal de FF; Deja el segundo parámetro a nil.

[rauros]

Vale pero eso era para hacer una prueba. ¿y si necesito usar el proceso de un videojuego como puedo saber el tipo de clase para la ventana? Gracias a todos.