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; 

---