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

Вниз

версия файла   Найти похожие ветки 

← →
Anton777 ©   (2004-08-06 14:06) [0]

Подскажите пожалуйста код программы чтобы вытащить из нужного мне файла его версию! Пробовал с функциями GetFileVersionInfoSize и с GetFileVersionInfo И ничего не получмлось! Заранее спасибо за помощь!

---

← →
Ega23 ©   (2004-08-06 14:11) [1]


var
Получилось:Boolean;
i:integer;
begin
for i:=1 to 5 do
 begin
  Получилось:=Try_To_Undersnand;
  if Получилось then Break;
 end;

if (not Получилось) then RTFM
end;


---

← →
Anton777 ©   (2004-08-06 14:24) [2]

так что то я не понял! А если апишная функция?

---

← →
Rouse_ ©   (2004-08-06 14:32) [3]

function GetFileVersion(const FileName: String): String;
var
 InfoSize,Wnd:DWORD;
 VerBuf:Pointer;
 FI:PVSFixedFileInfo;
 VerSize:DWORD;
begin
 Result := "";
 InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
 if InfoSize <> 0 then
 begin
   GetMem(VerBuf, InfoSize);
   try
     if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
       if VerQueryValue(VerBuf, "\", Pointer(FI), VerSize) then
         Result:= IntToStr(FI.dwFileVersionMS shr 16)+ "." +
           IntToStr(FI.dwFileVersionMS and $FFFF) + "." +
           IntToStr(FI.dwFileVersionLS shr 16) + "." +
           IntToStr(FI.dwFileVersionLS and $FFFF);
   finally
     FreeMem(VerBuf);
   end;
 end;
end;

---

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

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

Наверх

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