Az alábbi módszer bemutatja, hogy hogyan lehet egy FileListBox-ban
kiválasztott fájlhoz társított alkalmazásból kinyerni a fájl ikonját. 
Ezt az ikont átalakítjuk Bitmappé, megjelenítjük egy TImeage-ben, 
majd elmentjük BMP formátumban.

uses ShellAPI;

. . .

procedure TForm1.Button1Click(Sender: TObject);
var
   Icon : TIcon;
   Bitmap : TBitmap;
   w : word;
   hi : HIcon;
   S : PChar;
begin
   Icon:=TIcon.Create; // Az ikon létrehozása
   Bitmap := TBitmap.Create; // A bitmap lérehozása
   w:=0;   // A társított EXE első ikonja
   S:= PChar(FileListBox1.FileName);
   hi:=ExtractAssociatedIcon(hInstance,S,w); // Az ikon kinyerése
   Icon.Handle:=hi; // a fájlból
   Bitmap.Width:=Icon.Width; // A bitmap mérete legyen
   Bitmap.Height:=Icon.Height; // az ikon mérete
   Bitmap.Canvas.Draw(0, 0, Icon );   // Az ikon tartalmának
// bitmapra rajzolása
   Image1.Picture.Bitmap:=Bitmap;   // A bitmap megjelenítése
   Bitmap.SaveToFile('c:\proba.bmp');   // A bitmap elmentése
   Icon.Free;
   Bitmap.Free;
end;