Скачать: CL | DM;

Версия...   Найти похожие ветки 

← →
First_May ©   (2003-02-18 09:29) [0]

Можно ли считать программно версию проекта, которая находиться в Project/Options/Version Info?

---

← →
Mike_Goblin ©   (2003-02-18 09:57) [1]

http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_10053844.html

PS Поиск в google занял 15 секунд по ключевым словам Delphi project version.

---

← →
First_May ©   (2003-02-18 10:03) [2]

Спасибо

---

← →
Димон1   (2003-02-18 10:16) [3]

Кладовка - Готовые программы [1]



GetSelfVersion - Функция возвращает версию вашей программы. Димон1 15.08.02 20:40
GetSelfVersion - Функция возвращает версию вашей программы. Например 1.0.0.0.
Меню Delphi: Project - Options - Version info

function TForm1.GetSelfVersion : String;
var
pVer : ^VS_FIXEDFILEINFO;
Buff : Pointer;
iVer : DWORD;
i : Integer;
VerStr : String;
Version : Cardinal;
begin
iVer := FindResource (0,"#1",RT_VERSION);
if iVer = 0 then
begin
//ShowMessage ("SYSTEM FALURE : Version info not found !");
Result := "<Unknown>";
Exit;
end;

Buff := Pointer(LoadResource(0,iVer));
pVer := NIL;
for i := 0 to (WORD(Buff^) DIV 4)-1 do
begin
if DWORD ( Buff^ ) = $FEEF04BD then
begin
pVer := Buff;
Break;
end;
Buff := Ptr(DWORD(Buff)+4);
end;
if pVer^.dwSignature <> $feef04bd then
begin
//ShowMessage ("Version info not found.")
Result := "<Unknown>";
end
else
begin
Version := pVer^.dwProductVersionLS;
VerStr := IntToStr ((pVer^.dwProductVersionMS SHR $10) AND $FFFF);
VerStr := VerStr+"."+IntToStr (pVer^.dwProductVersionMS AND $FFFF);
VerStr := VerStr+"."+IntToStr ((pVer^.dwProductVersionLS SHR $10) AND $FFFF);
VerStr := VerStr+"."+IntToStr (pVer^.dwProductVersionLS AND $FFFF);
Result := VerStr;
end;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c