inno-setup – 如何在Inno安装程序中获取执行程序的输出？

[Code]

function NextButtonClick(CurPage: Integer): Boolean;
var
  TmpFileName,ExecStdout: string;
  ResultCode: integer;
begin
  if CurPage = wpWelcome then begin
    TmpFileName := ExpandConstant('{tmp}') + 'ipconfig_results.txt';
    Exec('cmd.exe','/C ipconfig /ALL > "' + TmpFileName + '"','',SW_HIDE,ewWaitUntilTerminated,ResultCode);
    if LoadStringFromFile(TmpFileName,ExecStdout) then begin
      MsgBox(ExecStdout,mbInformation,MB_OK);
      // do something with contents of file...
    end;
    DeleteFile(TmpFileName);
  end;
  Result := True;
end;

请注意，可能有多个网络适配器，因此可以选择几个MAC地址。