El icono asociado a una extensión

El código para Visual Basic

'------------------------------------------------------------------------------
' Mostrar el icono asociado a un fichero                            (24/Ago/06)
' Usando el método compartido ExtractAssociatedIcon.
' Para convertir de Icon a Bitmap se usa ToBitmap.
' También se muestra como usar Drag & Drop
'
' ©Guillermo 'guille' Som, 2006
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Drawing

Public Class Form1

    Private Sub Form1_Load( _
                    ByVal sender As Object, _
                    ByVal e As EventArgs) Handles MyBase.Load
        ' Un fichero que seguramente todos tenemos
        Dim winDir As String = System.Environment.SystemDirectory
        Me.txtFic.Text = winDir & "\desktop.ini"
    End Sub

    Private Sub btnExaminar_Click( _
                    ByVal sender As Object, _
                    ByVal e As EventArgs) Handles btnExaminar.Click
        ' Seleccionar un fichero
        Dim openFD As New OpenFileDialog
        openFD.Title = "Selecciona el fichero del que quieres el icono"
        openFD.Filter = "Todos los ficheros (*.*)|*.*"
        If openFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.txtFic.Text = openFD.FileName
        End If
    End Sub

    Private Sub btnMostrar_Click( _
                    ByVal sender As Object, _
                    ByVal e As EventArgs) Handles btnMostrar.Click
        ' Mostrar el icono en el picture
        Try
            Dim icono As Icon
            icono = System.Drawing.Icon.ExtractAssociatedIcon(Me.txtFic.Text)
            ' Convertirlo a Bitmap y asignarlo a la propiedad Image del picture
            If icono IsNot Nothing Then
                Me.picIcon.Image = icono.ToBitmap()
            Else
                Me.picIcon.Image = Nothing
            End If
        Catch ex As Exception
            MessageBox.Show("ERROR:" & ex.Message, _
                            "Al extraer el icono asociado", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Exclamation)
        End Try
    End Sub

    Private Sub Form1_DragEnter( _
                    ByVal sender As Object, _
                    ByVal e As DragEventArgs) Handles MyBase.DragEnter
        ' Aceptar ficheros soltados
        ' Drag & Drop, comprobar con DataFormats
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub

    Private Sub Form1_DragDrop( _
                    ByVal sender As Object, _
                    ByVal e As DragEventArgs) Handles MyBase.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim sFic As String
            ' Devuelve un array de tipo String,
            ' solo nos interesa el primer elemento
            sFic = CType(e.Data.GetData(DataFormats.FileDrop, True), String())(0)
            Me.txtFic.Text = sFic
        End If
    End Sub

    Private Sub chkAjustar_CheckedChanged( _
                    ByVal sender As Object, _
                    ByVal e As EventArgs) Handles chkAjustar.CheckedChanged
        ' Ampliar el icono a 64x64 o dejarlo en normal
        If Me.chkAjustar.Checked Then
            Me.picIcon.SizeMode = PictureBoxSizeMode.Zoom
        Else
            Me.picIcon.SizeMode = PictureBoxSizeMode.Normal
        End If
    End Sub
End Class

El código para C#

//-----------------------------------------------------------------------------
// Mostrar el icono asociado a un fichero                           (24/Ago/06)
// Usando el método compartido ExtractAssociatedIcon.
// Para convertir de Icon a Bitmap se usa ToBitmap.
// También se muestra como usar Drag & Drop
//
// ©Guillermo 'guille' Som, 2006
//-----------------------------------------------------------------------------

using Microsoft.VisualBasic;
using System;
using System.Windows.Forms;
using System.Drawing;

namespace iconoAsociado_CS
{

public partial class Form1 : Form
{
    public Form1()
    {
        InitializeComponent();
    }
    
    private void Form1_Load(object sender, EventArgs e)
    {
        // Un fichero que seguramente todos tenemos
        string winDir = System.Environment.SystemDirectory;
        this.txtFic.Text = winDir + @"\desktop.ini";
    }

    private void btnExaminar_Click(object sender, EventArgs e)
    {
        // Seleccionar un fichero
        OpenFileDialog openFD = new OpenFileDialog();
        openFD.Title = "Selecciona el fichero del que quieres el icono";
        openFD.Filter = "Todos los ficheros (*.*)|*.*";
        if( openFD.ShowDialog() == System.Windows.Forms.DialogResult.OK )
        {
            this.txtFic.Text = openFD.FileName;
        }
    }

    private void btnMostrar_Click(object sender, EventArgs e)
    {
        // Mostrar el icono en el picture
        try
        {
            Icon icono;
            icono = System.Drawing.Icon.ExtractAssociatedIcon(this.txtFic.Text);
            // Convertirlo a Bitmap y asignarlo a la propiedad Image del picture
            if( icono != null )
            {
                this.picIcon.Image = icono.ToBitmap();
            }
            else
            {
                this.picIcon.Image = null;
            }
        }
        catch( Exception ex )
        {
            MessageBox.Show("ERROR:" + ex.Message, 
                            "Al extraer el icono asociado", 
                            MessageBoxButtons.OK, 
                            MessageBoxIcon.Exclamation);
        }
    }

    private void Form1_DragEnter(object sender, DragEventArgs e)
    {
        // Aceptar ficheros soltados
        // Drag & Drop, comprobar con DataFormats
        if( e.Data.GetDataPresent(DataFormats.FileDrop) )
        {
            e.Effect = DragDropEffects.Copy;
        }
    }

    private void Form1_DragDrop(object sender, DragEventArgs e)
    {
        if( e.Data.GetDataPresent(DataFormats.FileDrop) )
        {
            string sFic;
            // Devuelve un array de tipo String,
            // solo nos interesa el primer elemento
            sFic = ((string[])e.Data.GetData(DataFormats.FileDrop, true))[0];
            this.txtFic.Text = sFic;
        }
    }

    private void chkAjustar_CheckedChanged(object sender, EventArgs e)
    {
        // Ampliar el icono a 64x64 o dejarlo en normal
        if( this.chkAjustar.Checked )
        {
            this.picIcon.SizeMode = PictureBoxSizeMode.Zoom;
        }
        else
        {
            this.picIcon.SizeMode = PictureBoxSizeMode.Normal;
        }
    }
}

}