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))) ;
IF hwndWinamp = 0 THEN BEGIN
hwndWinamp := FindWindow(pchar(trim(gWindowName)),nil) ; IF hwndWinamp = 0 THEN BEGIN
ShowMessage(gWindowName + ' Ventana NO ENCONTRADA');
exit;
end;
END;
SetForegroundWindow(hwndWinamp); SetForegroundWindow(hwndWinamp);
PostKeyEx32(VK_HOME, [], TRUE);
PostKeyEx32(VK_END, [SSsHIFT], TRUE);
PostKeyEx32(VK_INSERT, [ssCtrl], TRUE);
SetForegroundWindow(Handle); PostKeyEx32(ord('V'), [SSCTRL], TRUE);
end;
He empezado provando con firefox pero siempre me dice
firefox.exe VENTANA NO ENCONTRADA