[DELPHI] OBTER O TIPO DO ARQUIVO SELECIONADO

procedure TForm1.Button1Click(Sender: TObject); 

var

  FileInfo: TSHFileInfo;

  strFilename: string;

begin

  if OpenDialog1.Execute then

  begin

    strFilename := OpenDialog1.FileName;

    FillChar(FileInfo, SizeOf(FileInfo), #0);

    SHGetFileInfo(PChar(strFilename), 0, FileInfo, SizeOf(FileInfo), SHGFI_TYPENAME);

    ShowMessage(FileInfo.szTypeName);

  end;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】