чтение информации о файле

function FileVersion(FileName: string): string;
var Bufer: Pointer;
    BufSize, Len, dwHandle: Cardinal;
    VerInfo: PVSFixedFileInfo;
    s:PAnsiChar;
begin
  dwHandle:=0;
  Len:=0;
  BufSize:=65535;
  Bufer:=nil;

  Result := 'Не могу прочитать информацию';
  s:=PChar(FileName);
  BufSize := GetFileVersionInfoSize(s, dwHandle);
  if BufSize <> 0 then
    begin
      GetMem(Bufer, BufSize);
      try
        GetFileVersionInfo(PChar(FileName), 0{dwHandle}, BufSize, Bufer);
        VerQueryValue(Bufer, '\', Pointer(VerInfo), Len);
        with VerInfo^ do
          Result := Format('%d.%d.%d.%d', [
            dwFileVersionMS shr 16,
            dwFileVersionMS and $FFFF,
            dwFileVersionLS shr 16,
            dwFileVersionLS and $FFFF]);
      finally
      FreeMem(Bufer, BufSize);
      end;
    end;
end;

GetFileVersionInfoSize(s, dwHandle);

FileName