Funkcja odczytująca wersję pliku

function BOOL ReadFileVersion(svPathFile, svVersion )
int nResult;
begin
 if (Is (FILE_EXISTS,svPathFile)) then
  nResult = VerGetFileVersion(svPathFile,svVersion); 
  switch (nResult) 
   case  0: return TRUE;
   case -2: svVersion="-1"; return FALSE; //no file
   case -8: svVersion="0";  return FALSE;  //brak informacji o pliku
  endswitch;
 else  
  return FALSE; //Plik nie istnieje;
 endif;
end;