有兴趣的人有一个相关的问题在这里。我被鼓励单独提出其中一个问题。
所以我有这个[Run]
代码:
Filename: "{cmd}"; Parameters: "/C exit"; Description: "Exit Setup"; \
Flags: nowait postinstall runasoriginaluser unchecked skipifsilent; Check: IsWin64
它运作良好。它在安装结束时显示以下窗口:
但问题在于,Exit Setup的措辞是用英语硬编码的。现在,我查看了default.isl文件并找到了:
ExitSetupTitle=Exit Setup
ClickFinish=Click Finish to exit Setup.
我不知道我是否应该使用这些消息中的任何一个。使用ClickFinish对我来说很有意义,因为这是用户将要做的。
但是我不知道如何在 run 语句中使用该消息。
我已将提供的答案修改为:
function GetClickFinishSetupMessage(Param: string): string;
var
I: integer;
S1: string;
S2: string;
begin
S1 := SetupMessage(msgClickFinish);
I := Length(S1);
S2 := Copy(S1, I-1, 1);
if(S2 = '.') then
S1 := Delete(S1, I-1, 1);
end;
result := S1;
end;
所以我可以删除最后一个时期。但它不会编译。它说 的第三个参数不匹配Delete
。
[Run]
Filename: ...; Description: {code:GetClickFinishSetupMessage}
[Code]
function GetClickFinishSetupMessage(Param: string): string;
begin
Result := SetupMessage(msgClickFinish);
{ Drop trailing dot, if any }
if Copy(Result, Length(Result), 1) = '.' then
SetLength(Result, Length(Result) - 1);
end;
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句