Inno setup 在安装过程中可见的单独窗口中显示消息

Inno setup 在安装过程中可见的单独窗口中显示消息,inno-setup,Inno Setup,我已经使用了InfoBeforeFile指令和一个“重要通知”文本文件 但我希望用户能够在整个安装过程中(例如在单独的窗口中)继续阅读说明 有线索吗 添加了最终结果,再次感谢Martin Prikryl 用于为邮件创建单独的窗口 [文件] 资料来源:“important.txt”;标志:dontcopy; [守则] 过程初始化Wizard(); 变量 InfoForm:TSetupForm; InfoMemo:TRichEditViewer; 开始 InfoForm:=CreateCustom

我已经使用了
InfoBeforeFile
指令和一个“重要通知”文本文件

但我希望用户能够在整个安装过程中(例如在单独的窗口中)继续阅读说明

有线索吗


添加了最终结果,再次感谢Martin Prikryl

用于为邮件创建单独的窗口

[文件]
资料来源:“important.txt”;标志:dontcopy;
[守则]
过程初始化Wizard();
变量
InfoForm:TSetupForm;
InfoMemo:TRichEditViewer;
开始
InfoForm:=CreateCustomForm;
日志(IntToStr(WizardForm.Left));
日志(IntToStr(WizardForm.Width));
InfoForm.Left:=WizardForm.Left+WizardForm.Width;
InfoForm.Width:=ScaleX(400);
InfoForm.Caption:=“重要消息”;
InfoForm.Top:=WizardForm.Top;
InfoForm.Height:=WizardForm.Height;
InfoForm.Position:=poDesigned;
Show();
InfoMemo:=TRichEditViewer.Create(InfoForm);
InfoMemo.Parent:=InfoForm;
InfoMemo.Left:=ScaleX(40);
InfoMemo.Top:=ScaleX(40);
InfoMemo.Width:=InfoForm.ClientWidth-2*ScaleX(40);
InfoMemo.Height:=InfoForm.ClientHeight-2*ScaleX(40);
InfoMemo.ScrollBars:=ssVertical;
InfoMemo.ReadOnly:=ssVertical;
InfoMemo.WantReturns:=ssVertical;
InfoMemo.WantReturns:=False;
ExtractTemporaryFile('important.txt');
InfoMemo.Lines.LoadFromFile(ExpandConstant({tmp}\important.txt');
结束;

用于为邮件创建单独的窗口

[文件]
资料来源:“important.txt”;标志:dontcopy;
[守则]
过程初始化Wizard();
变量
InfoForm:TSetupForm;
InfoMemo:TRichEditViewer;
开始
InfoForm:=CreateCustomForm;
日志(IntToStr(WizardForm.Left));
日志(IntToStr(WizardForm.Width));
InfoForm.Left:=WizardForm.Left+WizardForm.Width;
InfoForm.Width:=ScaleX(400);
InfoForm.Caption:=“重要消息”;
InfoForm.Top:=WizardForm.Top;
InfoForm.Height:=WizardForm.Height;
InfoForm.Position:=poDesigned;
Show();
InfoMemo:=TRichEditViewer.Create(InfoForm);
InfoMemo.Parent:=InfoForm;
InfoMemo.Left:=ScaleX(40);
InfoMemo.Top:=ScaleX(40);
InfoMemo.Width:=InfoForm.ClientWidth-2*ScaleX(40);
InfoMemo.Height:=InfoForm.ClientHeight-2*ScaleX(40);
InfoMemo.ScrollBars:=ssVertical;
InfoMemo.ReadOnly:=ssVertical;
InfoMemo.WantReturns:=ssVertical;
InfoMemo.WantReturns:=False;
ExtractTemporaryFile('important.txt');
InfoMemo.Lines.LoadFromFile(ExpandConstant({tmp}\important.txt');
结束;

是的,一个单独的窗口,谢谢(我编辑了我的第一条评论)是的,一个单独的窗口,谢谢(我编辑了我的第一条评论)这太完美了!感谢两次(也为非常明确的重新调整)顺便说一句,我已经发现你的答案在这里很有用,这是完美的!谢谢你两次(也感谢你非常清晰的修改)顺便说一句,我已经在这里找到了你有用的答案