Форум: "Потрепаться";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизВерсия... Найти похожие ветки
← →
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c