delphi6 "Project" -> "Options" -> "Version Info" 中FileVersion 每次编译加1

在 Delphi6 中，可以通过在“Project”菜单下选择“Options”，然后在弹出的对话框中选择“Version Info”选项卡来设置文件版本信息。在该选项卡中，可以设置文件的版本号、文件描述等信息。

如果你想让每次编译时自动将文件版本号加1，可以在“Version Info”选项卡中设置“FileVersion”为一个变量，然后在程序中通过代码自动修改该变量的值。例如：

procedure TForm1.Button1Click(Sender: TObject);
var
  VerInfo: TVersionInfo;
  NewFileVersion: Integer;
begin
  VerInfo := TVersionInfo.Create(Application.ExeName);
  try
    NewFileVersion := VerInfo.FixedInfo.FileVersion[2] + 1;
    VerInfo.WriteString('FileVersion', Format('%d.%d.%d.%d', [
      VerInfo.FixedInfo.FileVersion[0],
      VerInfo.FixedInfo.FileVersion[1],
      NewFileVersion,
      VerInfo.FixedInfo.FileVersion[3]
    ]));
  finally
    VerInfo.Free;
  end;
end;

上面的代码中，我们首先创建了一个 TVersionInfo 对象来读取程序的版本信息。然后，我们通过修改 FileVersion 数组中的第二个元素来将文件版本号加1，并将修改后的版本号保存到文件中。每次点击按钮时，程序都会将文件版本号加1。