Извлечение иконки файла и ее подгрузка в Image

[artemavd]

Добрый вечер!
Нашел код извлечения иконки файла из реестра:

function GetRegistryIconHandle(FileName: string): HICON;
var
  R: TRegistry;
  Alias, //псевдвним для расширения в реестре
  IconPath: string; //путь для файла с иконкой
  IconNum, //номер иконки в файле
  QPos: Integer; //позиция запятой в записи реестра
begin
  IconNum := 0;
  R := TRegistry.Create;
  try
    R.RootKey := HKEY_CLASSES_ROOT;
    //чтение псевданима
    if R.OpenKey('\' + ExtractFileExt(FileName), True) then
      Alias := R.ReadString('');
    R.CloseKey;
    //чтение записи об иконке
    if R.OpenKey('\' + Alias + '\DefaultIcon', True) then
      IconPath := R.ReadString('');
    R.CloseKey;
    //поиск запятой
    QPos := Pos(',', IconPath);
    //чтение номера иконки в файле если она имеется
    if QPos <> 0 then
    begin
      IconNum := StrToInt(Copy(IconPath, QPos + 1, 4));
      IconPath := Copy(IconPath, 1, QPos - 1)
    end;
  finally
    R.Free;
  end;
  //передача хендлера иконки как рещультат выполнения
  Result := ExtractIcon(hInstance, PChar(IconPath), IconNum);
end;

procedure TForm2.sButton1Click(Sender: TObject);
begin
 GetRegistryIconHandle('G:\1.html');
end;

Как теперь полученную иконку загрузить, например, в поток (типа MemoryStream) чтобы потом ее можно было пересохранить в файл?

[Аватар]

Не проверял, но должно прокатить

var Picture: TPicture;
    Stream: TFileStream;
...
  Picture:=TPicture.Create;
  Stream:=TFileStream.Create('d:\MyIcon.ico',fmCreate);
  Picture.Icon.Handle:=HIcon;
  Picture.Icon.SaveToStream(Stream);
  Picture.Free;
  Stream.Free;