Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

Как узнать версию файла в делфях   Найти похожие ветки 

← →
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 вся ветка

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c