inno-setup - Inno 设置始终在顶部

Question

我们通常通过 LANDesk 运行我们的安装程序。最近我们有一个要求总是把窗户放在上面。我们运行的命令行是 /SP- /SILENT /SUPPRESSMSGBOXES /NORESTART /LOG="C:\LOGS\logfile.LOG" /NOCANCEL 用于自动安装。我到处搜索，我一生都找不到完成这个的方法。有没有人完成安装时始终显示在顶部的对话框？

谢谢。

Answer 1

您可以尝试以下方法：

[Code]
const
  HWND_TOPMOST = -1;
  SWP_NOSIZE = 1;
  SWP_NOMOVE = 2;
  SWP_SHOWWINDOW = $40;

function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND; X: Integer; Y: Integer;
  cx: Integer; cy: Integer; uFlags: UINT): BOOL;
  external 'SetWindowPos@user32.dll stdcall'; 

procedure InitializeWizard;
begin
  SetWindowPos(WizardForm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or 
    SWP_NOMOVE or SWP_SHOWWINDOW); 
end;