在Inno Setup窗口中打开外部程序

Inno Setup的等效代码如下：

[Code]

function SetParent(hWndChild: HWND; hWndNewParent: HWND): HWND;
  external '[email protected] stdcall';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL;
  external '[email protected] stdcall';

procedure InitializeWizard();
var
  Page: TWizardPage;
  ResultCode: Integer;
  ProgHandle: HWND;
begin
  Page := CreateCustomPage(wpWelcome, 'Test', '');

  Exec('notepad.exe', '', '', SW_HIDE, ewNoWait, ResultCode);

  while ProgHandle = 0 do
    ProgHandle := FindWindowByWindowName('Untitled - Notepad');

  SetParent(ProgHandle, Page.Surface.Handle);
  ShowWindow(ProgHandle, SW_SHOWMAXIMIZED);
end;

尽管我建议您不要这样做。这是不可靠的破解。在安装程序本身中按Pascal代码显示图像。