ГоловнаКаталогБлогРейтингЕ-Пошта 
 
 
Зробити домашньою у вибране  

Форуми -> Програмування -> Як взнати версію файла, який запущений з програми написаної в Delphi
 
programmer 10:51 01.04.2009 Цитувати № 1 [^]
 
Як взнати версію exe-файлу, який запущений з програми, написаної в Delphi?
(потрібно вивести поточну версію exe-шника)
 
Joe 11:29 01.04.2009 Цитувати № 2 [^]
 
Знайшов в інтернеті. Сам не тестував.
Delphi
               procedure GetFileVersion(FileName: string; var Major1, Major2,
                 Minor1, Minor2: Integer);
               { Helper function to get the actual file version information }
               var
                 Info: Pointer;
                 InfoSize: DWORD;
                 FileInfo: PVSFixedFileInfo;
                 FileInfoSize: DWORD;
                 Tmp: DWORD;
               begin
                 // Get the size of the FileVersionInformatioin
                 InfoSize := GetFileVersionInfoSize(PChar(FileName), Tmp);
                 // If InfoSize = 0, then the file may not exist, or
                 // it may not have file version information in it.
                 if InfoSize = 0 then
                   raise Exception.Create('Can''t get file version information for '
                     + FileName);
                 // Allocate memory for the file version information
                 GetMem(Info, InfoSize);
                 try
                   // Get the information
                   GetFileVersionInfo(PChar(FileName), 0, InfoSize, Info);
                   // Query the information for the version
                   VerQueryValue(Info, '\', Pointer(FileInfo), FileInfoSize);
                   // Now fill in the version information
                   Major1 := FileInfo.dwFileVersionMS shr 16;
                   Major2 := FileInfo.dwFileVersionMS and $FFFF;
                   Minor1 := FileInfo.dwFileVersionLS shr 16;
                   Minor2 := FileInfo.dwFileVersionLS and $FFFF;
                 finally
                   FreeMem(Info, FileInfoSize);
                 end;
               end;


  Ім'я:
  Пароль:
Комп'ютерні мережі, 2-е видання
Комп'ютерні мережі, 2-е видання
штраф за просроченную осаго
APServer | SiMan CMS | Лічильник відвідувань | Тека сайтів | Рейтинг | Форум | Лінійки малюкам | PHP Builder | Download | Шаблони сторінок | Посібник Smarty | Підручник PHP | Статті/Огляди | Розробка сайтів | Банерна мережа