Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.05 c
1-1097767531
redlord
2004-10-14 19:25
2004.10.31
не получается прочитать последние 4 байта файла


1-1098083698
Kniaz
2004-10-18 11:14
2004.10.31
Контроль за исключениями


14-1097224980
Darts
2004-10-08 12:43
2004.10.31
Библиотека для получения (отправки почты)


4-1096110155
dmk
2004-09-25 15:02
2004.10.31
Длина имени принтера в DeviceMode


3-1096964604
Rule
2004-10-05 12:23
2004.10.31
Вопрос по условным операторам в SQL Firebird 1.X