正如主题一样，这可能吗？而且，如果参数（例如，传递给exe文件的参数）设置为true，我想在安装程序的一页上显示它们。
我知道如何显示一些页面：
if dev then
PageWersjePlikow :=
CreateOutputMsgMemoPage(
1, 'Wersje plików zawarte w instalatorze',
'Lista plików niewidoczna dla klienta',
'Pliki:', 'TU WPISAĆ WERSJE PLIKÓW');
我有一些想法，但每个想法都基于编译exe安装程序然后从中读取时生成的.txt文件。
使用GetVersionNumbers或GetVersionNumbersString支持功能。
该GetVersionNumbersString格式返回版本Major.Minor.Rev.Build。
如果您需要其他格式，则需要按照所需方式使用GetVersionNumbers和格式化版本组件（例如Major.Minor.Rev）：
function MyGetVersionNumbersString(const Filename: String; var Version: String): Boolean;
var
MS, LS: Cardinal;
Major, Minor, Rev, Build: Cardinal;
begin
Result := GetVersionNumbers(Filename, MS, LS);
if Result then
begin
Major := MS shr 16;
Minor := MS and $FFFF;
Rev := LS shr 16;
Build := LS and $FFFF;
Version := Format('%d.%d.%d', [Major, Minor, Rev]);
end
end;
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句