Текущий архив: 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.02 c