29Июль/120

Отображение кода в тексте материала WordPress

Простой плагин для WordPress который позволит вставить в материал вашего сайта красиво обрамленный кусок кода на большинстве известных языков программирования.

28Июль/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;
Метки записи: , Нет комментариев