Текущий архив: 2007.07.01;
Скачать: CL | DM;

Вниз

Номер билда   Найти похожие ветки 

← →
I-New   (2007-05-02 14:34) [0]

Подскажите плз. Можно ли вывести номер билда проги в Tlabel?
Тоесть не ручками его писать, а чтобы каждый раз при при запуске прога смотрела свой номер билда и вписывала в Tlabel.caption

---

← →
Tack   (2007-05-02 14:40) [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.



---

Страницы: 1 вся ветка

Текущий архив: 2007.07.01;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.02 c