Inno Setup：如何在运行时更改消息？
|
我需要在运行时更改消息。我有一个AfterInstall过程，用于检查bat文件是否成功。如果不是，我想在调用WizardForm.Close之前更改ExitSetupMessage的值。我希望做这样的english.ExitSetupMessage：= \'这是不起作用的部分\';。代码示例将不胜感激。谢谢。
[Languages]
Name: english; MessagesFile: compiler:Default.isl
[Files]
Source: {src}\\test.bat; DestDir: {tmp}; AfterInstall: ValidateInstall
[Code]
procedure ValidateInstall();
var
ResultCode : Integer;
begin
if not Exec(ExpandConstant(\'{tmp}\\test.bat\'), \'\', \'\', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
begin
english.ExitSetupMessage := \'THIS IS THE PART THAT DOES NOT WORK\';
WizardForm.Close;
end;
end;
没有找到相关结果
已邀请:
2 个回复
烷刨画颠离
之前设置CustomState。var CustomState : Boolean; procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean); var Msg : String; Res : Integer; begin Confirm := False; // Don\'t show the default dialog. // Chose which message the custom or default message. if CustomState then Msg := \'My Custom Close Message\' else Msg := SetupMessage(msgExitSetupMessage); //as the Question Res := MsgBox(Msg, mbConfirmation,MB_OKCANCEL); // If they press OK then Cancel the install Cancel := (Res = IDOK); end;保持标题。抹持奠糙驰