4

如题，有可能吗？而且，如果参数（例如传递给 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 文件，然后从中读取...

4

2 回答 2

6

使用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;
于 2015-04-10T08:22:33.493 回答
0

谢谢！我找到了检查 cmd 参数的解决方案：

function GetParam: Boolean;
var
   param: string;
   i: integer;
begin
   Result := False;
   for i:= 0 to ParamCount do
   begin   
      param := ParamStr(i);
      if (param = '-p') then
      begin
         Result := True;
         break;
      end;      
   end;   
end;

使用我的功能，我可以使用“-p”参数运行我的安装程序，它会显示我的页面，其中包含我想要的信息:-)

于 2015-04-10T08:53:25.190 回答