| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

версия файла

Anton777 ©   (2004-08-06 14:06:00) 

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

---

Rouse_   (2004-08-06 14:32:00) [1]

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;

---

Anton777   (2004-08-06 14:24:00) [2]

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

---

Ega23   (2004-08-06 14:11:00) [3]


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

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


---

Наверх