Si vous souhaitez connaître le type MIME de vos fichiers,  il suffit de cocher dans les propriétés de votre projet le composant : gb.Desktop

Ensuite nous allons créer une petite application qui va ouvrir une boite de dialogue pour sélectionner un fichier puis en donner son now et son type MIME.

Créez un projet nomme typmime  avec application graphique gtk ou qt et dans la feuille Fmain écrivez ce code ci dessous :

Public Sub Button1_Click()
Dialog.Title = "selectionner un fichier" 'defini le titre de la boite
Dialog.Path = Application.Path 'defini le chemin par defaut à l'ouverture
If Dialog.OpenFile() Then Return 'si on ne peut ouvrir le fichier alors ne rien faire
TextBox1.Text = Dialog.Path
TextBox2.Text = DesktopMime.FromFile(Dialog.Path).Type
End

Public Sub Form_Open()
Me.Center
End

Dans cette feuille veuillez y placer deux boutons, et deux Textbox.

Pour récupérer le nom du fichier, nous récupérons la variable dialog.path retournée par la dialogbox, et pour récupérer le type MIME du fichier, il suffit d'entrer la commande suivante :

DesktopMime.FromFile(Dialog.Path).Type