[Marvel]

можно сделать так (но это не совсем правильное решение, но фон будет прозрачный, то есть белый):

Код:

const
  ExtrFileName = 'C:\WINDOWS\system32\notepad.exe';
var
  icon: TIcon;
  bmp: TBitmap;
begin
  icon := TIcon.Create;
  icon.Handle := ExtractIcon(Handle, PChar(ExtrFileName), 0);
  bmp := TBitmap.Create;
  bmp.Width := Icon.Width;
  bmp.Height := Icon.Height;
  bmp.Canvas.Draw(0,0,Icon);
  ImageList1.Add(bmp,nil);
  ListView1.Items.Add.ImageIndex := 0;
  bmp.Free;
  icon.Free;
end;