Как Определить Тип Файла (как В Диалоге "свойства Файла")?

[Sascha]

uses
  {...,} ShellAPI;
 
function MrsGetFileType( const strFilename: string ): string;
var
  FileInfo: TSHFileInfo;
begin
   FillChar( FileInfo, SizeOf( FileInfo), #0 );
   SHGetFileInfo( PChar( strFilename), 0, FileInfo, SizeOf( FileInfo ), SHGFI_TYPENAME );
   Result := FileInfo.szTypeName;
end;

Код для использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption := MrsGetFileType( 'c:\autoexec.bat' );
end;