Текущий архив: 2003.03.17;
Скачать: CL | DM;
Вниз
Дата Компиляции... Найти похожие ветки
← →
PrettyFly © (2003-03-03 19:31) [0]Привет! Может ли прога узнать о дате своей компиляции или номер сборки? Чтобы при перекомпиляции не приходилось вручную менять заведённую для этого константу...
← →
Hint © (2003-03-03 19:57) [1]В свойствах проекта, на закладке, где указывается информация о exe (типа FileName, Internal FileName, Buildи тд) есть checkbox.
Что-то вроде "Autoincrement build number". Отметь его и при Build проекта он будет автоматически увеличиваться.
← →
Makhanev A.S. © (2003-03-03 23:41) [2]Вот пример на эту тему из моей программы: процедура возвращает версию файла(4 числа) (в Вашем случае - exe программы), если она прописана там, где указал Hint © (03.03.03 19:57)
procedure GetFileVersion(FileName: string; var Major, Minor,
Release, Build: Integer);
var
Info: Pointer;
InfoSize: DWORD;
FileInfo: PVSFixedFileInfo;
FileInfoSize: DWORD;
Tmp: DWORD;
begin
InfoSize := GetFileVersionInfoSize(PChar(FileName), Tmp);
if InfoSize <> 0 then
begin
GetMem(Info, InfoSize);
try
GetFileVersionInfo(PChar(FileName), 0, InfoSize, Info);
VerQueryValue(Info, "\", Pointer(FileInfo), FileInfoSize);
Major := FileInfo.dwFileVersionMS shr 16;
Minor := FileInfo.dwFileVersionMS and $FFFF;
Release := FileInfo.dwFileVersionLS shr 16;
Build := FileInfo.dwFileVersionLS and $FFFF;
finally
FreeMem(Info, FileInfoSize);
end;
end;
end;
← →
PrettyFly © (2003-03-05 13:32) [3]А дату никак не получить?
← →
Anatoly Podgoretsky © (2003-03-05 13:38) [4]А дату определяй константой, хоть в том же ресурсе.
Страницы: 1 вся ветка
Текущий архив: 2003.03.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
