Delphi-Help

Главная

Как определить тип файла (как в диалоге "Свойства файла")?

Оцените материал
(0 голосов)


Как определить тип файла (как в диалоге "Свойства файла")?

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;
Прочитано 5120 раз

Авторизация



Счетчики