如何得到文件的信息

Question

告诉你也无妨
先定义一个结构和函数：
type
  PFixedFileInfo = ^TFixedFileInfo;
  TFixedFileInfo = record
     dwSignature       : DWORD;
     dwStrucVersion    : DWORD;
     wFileVersionMS    : WORD;
     wFileVersionLS    : WORD;
     wProductVersionMS : WORD;
     wProductVersionLS : WORD;
  end;function FileInfo( const FileName :String ) : TFixedFileInfo;
var
  dwHandle, dwVersionSize : DWORD;
  strSubBlock             : String;
  pTemp                   : Pointer;
  pData                   : Pointer;
begin
   strSubBlock := '\';
   dwVersionSize := GetFileVersionInfoSize( PChar( FileName ),
                                            dwHandle );
   if dwVersionSize <> 0 then
   begin
      GetMem( pTemp, dwVersionSize );
      try
         if GetFileVersionInfo( PChar( FileName ),
                                dwHandle,
                                dwVersionSize,
                                pTemp ) then
            if VerQueryValue( pTemp,
                              PChar( strSubBlock ),
                              pData,
                              dwVersionSize ) then
               Result := PFixedFileInfo( pData )^;
      finally
         FreeMem( pTemp );
      end;
   end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
   f1 : string;
   x : TFixedFileInfo;
begin
    f1 := Application.ExeName;
    x := FileInfo( f1 );
    Label1.Caption := f1 +
       #13#10'Version: ' + IntToStr( x.wFileVersionLS ) + '.' + 
       IntToStr(x.wFileVersionMS ) +#13#10'Release: ' + 
       IntToStr( x.wProductVersionLS) +
                 #13#10'Build: '  + IntToStr( x.wProductVersionMS ) ;
end;如果要想得到文件的更多信息，和我联系！