Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.07;
Скачать: CL | DM;

Вниз

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

 
VladTen   (2002-10-17 10:33) [0]

Подскажите пожалуйста. Как узнать номер версии программы, которую видать из Свойств файла. Всем заранее благодарен.


 
Виктор Щербаков ©   (2002-10-17 10:37) [1]

Эта информация хранится в ресурсах.
См. Resource Functions в SDK


 
VladTen   (2002-10-17 10:41) [2]

А попроще как нибудь нельзя???


 
Praco ©   (2002-10-17 11:11) [3]

function GetFileVersion(FileName: string; var Major1, Major2, Minor1, Minor2: Integer): boolean;
var
Info: Pointer;
InfoSize: DWORD;
FileInfo: PVSFixedFileInfo;
FileInfoSize: DWORD;
Tmp: DWORD;
begin
Result:= false;
InfoSize := GetFileVersionInfoSize(PChar(FileName), Tmp);
if InfoSize > 0 then begin
GetMem(Info, InfoSize);
try
GetFileVersionInfo(PChar(FileName), 0, InfoSize, Info);
VerQueryValue(Info, "\", Pointer(FileInfo), FileInfoSize);
Major1 := FileInfo.dwFileVersionMS shr 16;
Major2 := FileInfo.dwFileVersionMS and $FFFF;
Minor1 := FileInfo.dwFileVersionLS shr 16;
Minor2 := FileInfo.dwFileVersionLS and $FFFF;
Result:= true;
finally
FreeMem(Info, FileInfoSize);
end;
end;
end;


 
VladTen   (2002-10-18 10:17) [4]

Большой сенкс Praco. Очень помог.



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
3-21442
Shadow
2002-10-20 20:52
2002.11.07
У меня прога использует BDE, а на другой машине нет BDE. Ошибка


1-21680
danilka
2002-10-28 11:45
2002.11.07
StringGrid, DrawGrid - кто-нибудь обьединял ячейки?


3-21432
nick-from
2002-10-19 11:19
2002.11.07
Косяки в Master-Detail


14-21742
kaif
2002-10-12 12:39
2002.11.07
ScreenCam тормозит...


3-21359
123000
2002-10-21 20:18
2002.11.07
Поиск по базе