28Jul/120

Получение иконки файла

Функция возвращает иконку файла по его расширению.
Пример использования:
  GetFileIcon('bmp');

Подключаемые модули:
   ShellAPI

1
2
3
4
5
6
7
8
9
10

function GetFileIcon(Ext: string): TIcon;
var
  TestFile: array[1..255] of Char;
  FileInfo: TSHFileInfo;
begin
  StrPCopy(@TestFile, '*.' + Ext + #0);
  SHGetFileInfo(@TestFile, 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
  Result := TIcon.Create;
  Result.Handle := FileInfo.hIcon;
end;
Метки записи: , Оставить комментарий
Комментарии (0) Пинги (0)

Пока нет комментариев.


Оставить комментарий

CAPTCHA image
*

Нет обратных ссылок на эту запись.

» «

Архив

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

Последние комментарии

Облако тегов

+1 Delphi Delphi XE durrrr Full Tilt Poker Google GoogleImageFinder RusToLat SEO Sitemap Generator Tom Dwan Windows 8 WordPress YouTube Бан Блеф Блог Блоггинг Вадим Зеланд В добрый путь Голографическая Вселенная Диплом Карта сайта Обратные ссылки Парсер Покер Покер бот Продвижение Работа Ранжирование Раскрутка сайта Создание Трансерфинг реальности Транслитерация Тренажер автокрана Фриланс аннотации видео вирусный маркетинг индексация программа работа в интернете раскрутить сайт раскрутка установка

Страницы

Карта сайта


Яндекс.Метрика