Inno Setup - Inno Setupから起動されたプログラムを強制的に画面の特定の場所で開く方法を教えてください。

Question

コード：Install DirectX & VCRedist in freearc default script when progress bar is full & paused after main file extraction Inno SetupでDirectXとVCRedistをインストールできます。しかし、これらのプログラムのインストールウィンドウを画面上の特定の場所に強制することは可能ですか？たとえば、次のように

Answer 1

それは、アプリケーションが明示的にサポートしていない限り、所望の位置に起動するアプリケーションを作ることはほとんど不可能です。

一般に、あなたができることは、特定のウィンドウが表示された後にそれを移動することを監視することです。キャプション（FindWindowByWindowName）またはクラス（FindWindowByClassName）でウィンドウを識別できます。欠点は、ウィンドウがデフォルトの位置に短時間表示されることです。

コードにはInnoTools InnoCallback libraryが使用されています。

[Files] 
Source: "DXWebSetup.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall 
Source: "InnoCallback.dll"; Flags: dontcopy 

[Run] 
Filename: "{tmp}\DXWebSetup.exe"; StatusMsg: "Installing DirectX..."; \ 
    BeforeInstall: StartWaitingForDirectXWindow; AfterInstall: StopWaitingForDirectXWindow 


[Code] 

type 
    TTimerProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord); 

function WrapTimerProc(Callback: TTimerProc; ParamCount: Integer): LongWord; 
    external 'wrapcallback@files:InnoCallback.dll stdcall delayload'; 
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; 
    external 'SetTimer@User32.dll stdcall'; 
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; 
    external 'KillTimer@User32.dll stdcall'; 
function GetTickCount: DWord; external 'GetTickCount@kernel32 stdcall'; 
function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND; X: Integer; Y: Integer; 
    cx: Integer; cy: Integer; uFlags: UINT): BOOL; 
    external 'SetWindowPos@user32.dll stdcall'; 

const 
    SWP_NOSIZE = $01; 
    SWP_NOZORDER = $04; 

var 
    WindowWaitTimer: LongWord; 
    WindowWaitStarted: DWord; 
    MoveWindowRunning: Boolean; 

procedure MoveDirectXWindowProc(
    H: LongWord; Msg: LongWord; IdEvent: LongWord; Time: LongWord); 
var 
    Retry: Boolean; 
    Handle: HWND; 
begin 
    Handle := FindWindowByWindowName('Installing Microsoft(R) DirectX(R)'); 
    if Handle = 0 then 
    begin 
    if DWord(GetTickCount - WindowWaitStarted) < 5000 then 
    begin 
     Log('DirectX window not found, will try again shortly'); 
     Retry := True; 
    end 
    else 
    begin 
     Log('Giving up waiting for DirectX window'); 
     Retry := False; 
    end 
    end 
    else 
    begin 
    Log('DirectX window found'); 

    SetWindowPos(
     Handle, 0, WizardForm.Left + ScaleX(150), WizardForm.Top + ScaleX(30), 
     0, 0, SWP_NOSIZE or SWP_NOZORDER); 
    Retry := False; 
    end; 

    if not Retry then 
    begin 
    Log('Stopping timer'); 
    KillTimer(0, WindowWaitTimer); 
    WindowWaitTimer := 0; 
    end; 
end; 

procedure StartWaitingForDirectXWindow; 
begin 
    Log('Starting waiting for DirectX window'); 
    WindowWaitTimer := SetTimer(0, 0, 100, WrapTimerProc(@MoveDirectXWindowProc, 4)); 
    WindowWaitStarted := GetTickCount; 
end; 

procedure StopWaitingForDirectXWindow; 
begin 
    if WindowWaitTimer <> 0 then 
    begin 
    Log('DirectX installer finished, and we are still waiting for its window, stopping'); 
    KillTimer(0, WindowWaitTimer); 
    WindowWaitTimer := 0; 
    end 
    else 
    begin 
    Log('DirectX installer finished, and we are no longer waiting for its window'); 
    end; 
end; 

---