Autododawanie wersji Kompilacji

0

No wałsnie zastanawiam się jak dodawać wersje? Kompilacji do wersji programu? Tak żeby po 1000 kompilacjach była dodawanwersja, o 100 wersjach generacja. Czy jakoś tak, po prostu Coś w stylu Wndows : Kompilacja 3000 czy coś w ten deseń.

0

Project --> Options --> Version Info

[x] Auto-increment version number

0

No tak a jak potem wyciągnąć te numery wersji, np na pasek tytułowy?

// Cos mi się nie dodają....

0

Jeśli się nie mylę, to się dodają tylko wtedy, gdy dasz "Build", nie "Compile". Bo ta ostatnia wersja to "Build number". Natomiast wtedy tylko tą wersję Ci będzie zwiększać, więc będziesz mógł mieć program build 1024. Numery wyższe są nadawane ręcznie i związane z konkretnymi zmianami wprowadzonymi w programie, a nie kolejną kompilacją. Wtedy taki numerek naprawdę coś oznacza.
Jak chodzi o to, jak się dobrać do tej wersji z poziomu programu, to oto wycinek helpa Delphi:

You can use the Windows GetFileVersionInfo and VerQueryValue API functions to obtain version information that is compiled with your application. The following code illustrates how to do this by writing the version information to a memo control named Memo1:

procedure TForm1.Button1Click(Sender: TObject);

const
  InfoNum = 10;
  InfoStr: array[1..InfoNum] of string = ('CompanyName', 'FileDescription', 'FileVersion', 'InternalName', 'LegalCopyright', 'LegalTradeMarks', 'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
var
  S: string;
  n, Len, i: DWORD;
  Buf: PChar;
  Value: PChar;
begin
  S := Application.ExeName;
  n := GetFileVersionInfoSize(PChar(S), n);
  if n > 0 then
  begin

    Buf := AllocMem(n);
    Memo1.Lines.Add('VersionInfoSize = ' + IntToStr(n));
    GetFileVersionInfo(PChar(S), 0, n, Buf);
    for i := 1 to InfoNum do
      if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' + InfoStr[i], Pointer(Value), Len) then
        Memo1.Lines.Add(InfoStr[i] + ' = ' + Value);
    FreeMem(Buf, n);
  end
  else
    Memo1.Lines.Add('No version information found');
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1