Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.026 c
3-1175702027
spyrytus
2007-04-04 19:53
2007.07.01
Как найти список всех драйверов ODBC ?


15-1180355653
Vendict
2007-05-28 16:34
2007.07.01
Разыскивается антивирус


15-1180624372
Bogdan1024
2007-05-31 19:12
2007.07.01
Диск на 30 дней


15-1180961245

2007-06-04 16:47
2007.07.01
function


15-1180517766
JanMihail
2007-05-30 13:36
2007.07.01
Мастера дельпхи