procedure TForm1.Open1Click(Sender: TObject);
var
  iFilename: string;
  iResult: boolean;
begin
  if OpenPictureDialog1.Execute then
  begin
    iFilename := OpenPictureDialog1.FileName;
    IEGlobalSettings().WICFileTypes := '*.svg';
    iResult := ImageEnView1.IO.LoadFromFileWIC(iFilename);
    if not iResult then
      ShowMessage('Can not open ' + iFilename + '.');
  end;
end;

uses
  iexShellThumbnails;

IEGetJumboFileIcon( 'C:\test.svg', ImageEnView1.IEBitmap );
ImageEnView1.Update();



Note: In 8.3.0, this will be:

WindowsGetFileIcon( 'C:\test.svg', ImageEnView1.IEBitmap );
ImageEnView1.Update();

procedure TForm1.Open2Click(Sender: TObject);
var
  iFilename: string;
  iResult: boolean;
begin
  if OpenPictureDialog1.Execute then
  begin
    iFilename := OpenPictureDialog1.FileName;
    IEGetJumboFileIcon(iFilename, ImageEnView1.IEBitmap);
    ImageEnView1.Update()
  end;
end;

procedure TForm1.Open2Click(Sender: TObject);
var
  iFilename: string;
  iResult: boolean;
begin
  if OpenPictureDialog1.Execute then
  begin
    iFilename := OpenPictureDialog1.FileName;
    WindowsGetExplorerThumbnail(iFilename, ImageEnView1.IEBitmap, 256, 256, true);
    ImageEnView1.Update()
  end;
end;