automation - studio - ¿Puede Inno Setup enviar pulsaciones de teclas y mouse, si no es así, cómo se puede hacer con un instalador?

inno setup descargar

Question

Soy novato de los instaladores de [Microsoft Windows] y de Inno Setup, pero necesito saber si se puede usar Inno Setup (o un equivalente) para automatizar la entrada a un programa de Windows basado en GUI, durante la instalación, por ejemplo, haciendo clic en un menú y seleccionando un subtema, por ejemplo?

Soy consciente de AutoIt y AutoHotkey , así como de NSIS , sin embargo, Inno Setup es altamente recomendado como instalador / creador de software, y también me gusta la idea de aprender un poco de programación de Pascal;)

Cualquier idea o pensamiento es bienvenido :-)

Answer 1

La mejor apuesta para esto es usar la API SendInput() desde una DLL que luego llama desde Inno Setup. Esto permitirá el control total de todo lo que puede hacer manualmente en esa aplicación.

Answer 2

Estoy de acuerdo con @Deanna, la función SendInput es la mejor para simular la entrada del usuario que puede obtener. En el siguiente script, he mostrado cómo simular clics del mouse en la posición absoluta de la pantalla (en píxeles). Como ejemplo, estoy tratando de mostrar el cuadro de Inno Setup a través del elemento de menú Help / About Inno Setup (si tiene la misma configuración de pantalla que yo y maximiza el Inno Setup IDE, incluso puede llegar a ese elemento del menú. aquí solo está la parte del mouse (y solo se puede obtener una funcionalidad limitada). Tómelo como una prueba, que es posible simular la entrada del usuario desde Inno Setup:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}/My Program
OutputDir=userdocs:Inno Setup Examples Output

[code]
const
  SM_CXSCREEN = 0;
  SM_CYSCREEN = 1;
  INPUT_MOUSE = 0;
  MOUSEEVENTF_MOVE = $0001;
  MOUSEEVENTF_LEFTDOWN = $0002;
  MOUSEEVENTF_LEFTUP = $0004;
  MOUSEEVENTF_RIGHTDOWN = $0008;
  MOUSEEVENTF_RIGHTUP = $0010;
  MOUSEEVENTF_MIDDLEDOWN = $0020;
  MOUSEEVENTF_MIDDLEUP = $0040;
  MOUSEEVENTF_VIRTUALDESK = $4000;
  MOUSEEVENTF_ABSOLUTE = $8000;
type
  TMouseInput = record
    Itype: DWORD;    
    dx: Longint;
    dy: Longint;
    mouseData: DWORD;
    dwFlags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD;
  end;

function GetSystemMetrics(nIndex: Integer): Integer;
  external ''[email protected] stdcall'';
function SendMouseInput(nInputs: UINT; pInputs: TMouseInput;
  cbSize: Integer): UINT; 
  external ''[email protected] stdcall'';

function SendMouseClick(Button: TMouseButton; X, Y: Integer): Boolean;
var
  Flags: DWORD;
  Input: TMouseInput;
  ScreenWidth: Integer;
  ScreenHeight: Integer;
begin
  Result := False;
  Flags := MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_VIRTUALDESK or MOUSEEVENTF_MOVE;
  ScreenWidth := GetSystemMetrics(SM_CXSCREEN);
  ScreenHeight := GetSystemMetrics(SM_CYSCREEN);

  Input.Itype := INPUT_MOUSE;
  Input.dx := Round((X * 65536) / ScreenWidth);
  Input.dy := Round((Y * 65536) / ScreenHeight);
  case Button of
    mbLeft: Input.dwFlags := Flags or MOUSEEVENTF_LEFTDOWN;
    mbRight: Input.dwFlags := Flags or MOUSEEVENTF_RIGHTDOWN;
    mbMiddle: Input.dwFlags := Flags or MOUSEEVENTF_MIDDLEDOWN;
  end;  
  Result := SendMouseInput(1, Input, SizeOf(Input)) = 1;

  if Result then
  begin
    Input.Itype := INPUT_MOUSE;
    Input.dx := Round((X * 65536) / ScreenWidth);
    Input.dy := Round((Y * 65536) / ScreenHeight);
    case Button of
      mbLeft: Input.dwFlags := Flags or MOUSEEVENTF_LEFTUP;
      mbRight: Input.dwFlags := Flags or MOUSEEVENTF_RIGHTUP;
      mbMiddle: Input.dwFlags := Flags or MOUSEEVENTF_MIDDLEUP;
    end;    
    Result := SendMouseInput(1, Input, SizeOf(Input)) = 1;
  end;
end;

procedure InitializeWizard;
begin
  if MsgBox(''Are you sure you want to let the installer click '' +
    ''somewhere on your screen ? TLama warned you :-)'', mbConfirmation, 
    MB_YESNO) = IDYES then
  begin
    if not SendMouseClick(mbLeft, 242, 31) then 
      MsgBox(SysErrorMessage(DLLGetLastError), mbError, mb_Ok);
    if not SendMouseClick(mbLeft, 382, 263) then 
      MsgBox(SysErrorMessage(DLLGetLastError), mbError, mb_Ok);
  end;
end;