Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];

Вниз

Как узнать версию программы из неё же?   Найти похожие ветки 

← →
avenger   (2003-06-02 15:32) [0]

В оболчке Делфи есть окно Опций проекта и вкладка Версии программы. Необходимо взять версию программы програмно.

---

← →
Vorobyev Sergey   (2003-06-02 15:38) [1]

Я делаю так..

function GetMyAppFileVersion:string;
var size, temp: Integer;
dump: DWORD;
buffer, TransBuffer, VersionPointer: PChar;
CalcLangCharSet: string;
FileName:string;
begin
FileName := Application.ExeName;

size := GetFileVersionInfoSize(PChar(FileName), dump);
buffer := StrAlloc(size + 1);

try
GetFileVersionInfo(PChar(FileName),0,size,buffer);
VerQueryValue(buffer,"\VarFileInfo\Translation",pointer(TransBuffer),dump);
if dump>=4 then
begin
temp:=0;
StrLCopy(@temp,TransBuffer,2);
CalcLangCharSet:=IntToHex(temp,4);
StrLCopy(@temp,TransBuffer+2,2);
CalcLangCharSet:=CalcLangCharSet+IntToHex(temp,4);
end;
VerQueryValue(buffer,pchar("\StringFileInfo\"+CalcLangCharSet+"\"+
"FileVersion"),pointer(VersionPointer),dump);
if (dump>1) then
Result := VersionPointer;
else
Result:="";

finally
StrDispose(buffer);
end;

end;

---

← →
C2H5OH   (2003-06-03 09:11) [2]

Примного благодарен, спасибо.

---

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

Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c