Номер билда
I-New © (2007-05-02 14:34:00)
Подскажите плз. Можно ли вывести номер билда проги в Tlabel?
Тоесть не ручками его писать, а чтобы каждый раз при при
запуске прога смотрела свой номер билда и вписывала в
Tlabel.caption
Tack (2007-05-02 14:40:00) [1]
unit VersionUtils;
interface
var
// Информация о версии программы файла
MajorVersion: Integer;
MinorVersion: Integer;
ReleaseVersion: Integer;
BuildVersion: Integer;
implementation
uses
Windows, Forms, SysUtils;
// Функция получает версию файла и записывает в глобальные
переменные
procedure LoadVersionInfo;
var
tmp, InfoSize, FileInfoSize: Cardinal;
Info: Pointer;
FileInfo: PVSFixedFileInfo;
begin
InfoSize :=
GetFileVersionInfoSize(PAnsiChar(Application.ExeName), tmp);
GetMem(Info, InfoSize);
GetFileVersionInfo(PChar(Application.ExeName), 0,
InfoSize, Info);
VerQueryValue(Info, '\', Pointer(FileInfo),
FileInfoSize);
MajorVersion := FileInfo.dwProductVersionMS shr 16;
MinorVersion := FileInfo.dwProductVersionMS and $FFFF;
ReleaseVersion := FileInfo.dwProductVersionLS shr 16;
BuildVersion := FileInfo.dwProductVersionLS and $FFFF;
end;
initialization
LoadVersionInfo;
end.
Наверх 
ЧАТ |
Орешник |
|
