versioninfo TdcVersionInfo component
Properties
Return to Introduction  Previous page  Next page
Overview
The dcVersionInfo component is used to extract version information from a file.  

How to use ?
Simply set the FileName property to a file which contains version information and read any of dcVersionInfo's properties.  

Example 1:
The following example demonstrates how to get the FileVersion for the SHELL32.DLL:  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
  with dcVersionInfo1 do  
   try   
// if file does not contain the version info - exception raised  
     FileName := 'shell32.dll';  
 
// if succeed displaying the FileVersion (string value)  
     LabelVersion1.Caption := FileVersion;  
 
// and 16-bit values:  
     LabMajor.Caption := IntToStr(FileVerMajor); // Major version  
     LabMinor.Caption := IntToStr(FileVerMinor); // Minor version  
     LabRelease.Caption := IntToStr(FileVerRelease); // Release #  
     LabBuild.Caption := IntToStr(FileVerBuild); // Build #  
   except  
   end;  
end;  

Example 2:
For example, we'd like to check the version number of the Internet Explorer (COMCTL32.DLL):  
const  
  IE_VER581 = (5 shl 16or 81// IE5.1  (Win2000 Pro)  
  IE_VER580 = (5 shl 16or 80// IE5    (Win98 SE)  
  IE_VER472 = (4 shl 16or 72// IE4.01  
  IE_VER471 = (4 shl 16or 71// IE4  
  IE_VER470 = (4 shl 16or 70// IE3  
  IE_VER400 = (4 shl 16or 00// Win95 first release version  
 
begin  
  // ------- skipped --------  
  try  
    dcVersionInfo1.FileName := 'comctl32.dll';  
    if dcVersionInfo1.FileMajorVersion >= IE_VER472 then  
     begin  
      // ----  
     end;  
  except  
  end;  

Notes
iiwarning dcVersionInfo will raise an exception if the file cannot be found, or if the file does not contain version information. The exception will be raised when you attempt to point the FILENAME to the file without version information. Use try..except blocks to handle an exception.