Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Окт

Извлечение иконки файла из реестра

Posted by micher under Delphi

Как извлечь иконку файла из реестра?

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;