[Snake22]

в проге в окне about выводится дата создания новой версии проги.
можно ли както сделать чтоб во время компиляции туда подставилась дата текущая?
а то вручную иногда забываю поправить

[angvelem]

Код:

var
  sAppName, sVersionType: string;
  iAppSize, iLenOfValue, i: integer;
  pcBuf, pcValue: PChar;
begin
  sAppName := Application.ExeName;
  iAppSize := GetFileVersionInfoSize(PChar(sAppName), iAppSize);
  if iAppSize > 0 then
  begin
    pcBuf := AllocMem(iAppSize);
    GetFileVersionInfo(PChar(sAppName), 0, iAppSize, pcBuf);
    for i := 0 to Ord(High(TVersionType)) do
    begin
      sVersionType := GetEnumName(TypeInfo(TVersionType), i);
      sVersionType := Copy(sVersionType, 3, length(sVersionType));
      if VerQueryValue(pcBuf, PChar('StringFileInfo\040904E4\' +
        sVersionType), Pointer(pcValue), iLenOfValue) then
        FVersionInfo[i] := pcValue;
    end;
    FreeMem(pcBuf, iAppSize);
  end;
end;

"Огрызок" из DelphiWorld.

[Snake22]

хмм,то есть таким же способоз извлекать дату создания exe файла?
но это не совсем то что я имел ввиду.
может есть чтото типа условных комментариев для компилятора?както так.
в {} скобках

[angvelem]

в окне about выводится дата создания новой версии проги

GetFileVersionInfo - то что прописано в файл при компиляции.

GetFileVersion returns the most significant 32 bits of a file binary version number. AFileName specifies the name of the file, which is searched using the same path as the LoadLibrary function.
GetFileVersion is only available on Windows and must not be used in cross-platform code.

The GetFileVersionInfo function returns version information about a specified file.

As with other file installation functions, GetFileVersionInfo works only with Win32 file images. It does not work with 16-bit Windows file images.

BOOL GetFileVersionInfo(
LPTSTR lptstrFilename, // pointer to filename string
DWORD dwHandle, // ignored
DWORD dwLen, // size of buffer
LPVOID lpData // pointer to buffer to receive file-version info.
);

Parameters

lptstrFilename

Pointer to a null-terminated filename string that specifies the file of interest.

dwHandle

This parameter is ignored.

dwLen

Specifies the size, in bytes, of the buffer pointed to by lpData.
Call the GetFileVersionInfoSize function to determine the size in bytes of a file's version information. dwLen should be equal to or greater than that value.
If the buffer pointed to by lpData is not large enough, the function truncates the file's-version information to the size of the buffer.

lpData

Pointer to a buffer to receive file-version information.
You can use this value in a subsequent call to the VerQueryValue function.
The file version information is always in Unicode format.

[NumLock]

-меню Project-Options...
-вкладка Version Info
-ставим галочку Include version information in project
-жмем кнопку Help
-читаем в файле справки Version Info (Project|Options)
-видим Note: For details on how to access version information programmatically, see Reading version information.
-кликаем на Reading version information
-читаем в файле справки Reading version information
-видим Delphi example
-кликаем на Delphi example
-изучаем код:

Код:

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;