Форум: "WinAPI";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
ВнизКак узнать версию файла в делфях Найти похожие ветки
← →
vasili (2004-09-20 11:16) [0]Хочу создать стандартный модуль "О программе" и хочу запихать туда версию о программе взяв её из версии файла а также некоторые другие данные содержащиеся в этом разделе.
подскажите как это сделать????
← →
ALS © (2004-09-20 11:48) [1]
function GetFileVersion(const FName, VName: string): string;
var sz, hndl : DWORD;
buflen : UINT;
pData, buf : Pointer;
Lang_CSet : string;
begin
Result := "";
sz := GetFileVersionInfoSize(PChar(FName), hndl);
if sz = 0 then exit;
GetMem(pData, sz);
try
// Get VersionInfo block, Lang & CharSet
if GetFileVersionInfo(PChar(FName), hndl, sz, pData)
and VerQueryValue(pData, "\VarFileInfo\Translation", buf, buflen) then
begin
Lang_CSet := IntToHex(PWORD(buf)^, 4) + IntToHex(PWORD(@(PChar(buf)[2]))^, 4);
// Get "VName" from version data
if VerQueryValue(pData,
PChar("\StringFileInfo\" + Lang_CSet + "\" + VName),
buf, buflen) then Result := PChar(Buf)
//else Result := "UNAVAILABLE"
end
finally
FreeMem(pData)
end
end;
...
MessageBox(0, PChar("File version: " + GetFileVersion(Application.ExeName, "FileVersion") + ^M^J +
"Product version: " + GetFileVersion(Application.ExeName, "ProductVersion")), "Info", MB_OK)
← →
vasili (2004-09-27 06:03) [2]спасибо получилось
А можно данным способом узнать еще какие либо
данные о программе если можно то как?
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.03 c