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

made in programmersforum 1

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

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

16th
Май

Получить иконку файла

Posted by Chas under Delphi

Alter
У меня хорошо находит эта версия.

var

   FileInfo: SHFILEINFO;

   Pat_ :String; // Buf путь файла

begin

 Pat_ := 'C:\blablablabla.mp3';

    // Иконка файла

  SHGetFileInfo(PChar(Pat_), 0, FileInfo,

                    SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);

end;

Еще использую и эту. Для другого.

function GetIcon(const FileName: string; const IconType: TIconType = itSmall):TIcon;

var

  FileInfo: TShFileInfo;

  ImageList: TImageList;

  IT: DWORD;

begin

  IT := SHGFI_SMALLICON;

  Result := TIcon.Create;

  ImageList := TImageList.Create(nil);

  if (IconType = itLarge) then

  begin

    IT := SHGFI_LARGEICON;

    ImageList.Height := 32;

    ImageList.Width := 32;

  end;

  FillChar(FileInfo, Sizeof(FileInfo), #0);

  ImageList.ShareImages := true;

  ImageList.Handle := SHGetFileInfo(

    PChar(FileName),

    SFGAO_SHARE,

    FileInfo,

    sizeof(FileInfo),

    IT or SHGFI_SYSICONINDEX

    );

  ImageList.GetIcon(FileInfo.iIcon, Result);

  ImageList.Free;

end;