Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

Как получить иконку зарегистрированного расширения   Найти похожие ветки 

← →
DK   (2002-01-21 10:39) [9]

Проверил твои функции. Гонишь!

Попробуй это со своими функциями:

Form1.OnPaint
var
I, J: Integer;
B: TBitmap;
begin
B := TBitmap.Create;
GetImageList(0, imageList1);
I := ImageList1.Count;
J := 0;
repeat
Imagelist1.GetBitmap(J, B);
Form1.Canvas.Draw((j mod 20)*36, (J div 20) * 36 , B);
inc(j);
until I<j;
B.Free;

Button1.OnClick

Caption := IntToStr(GetImageIndex(Edit1.text));


(Ещё нужен будет TEdit)

Вводишь в Едите любое имя файла (без пути) получаешь номер иконки (из тех, которые на экране).

У меня зарегистрировано расширение *.!!! написал 111.!!! результат: иконка № 0 - потому, что на диске этот файл не встречался очень давно и в IconCache для него иконка не сохранилась.
Переключился на Експлорер. Создал файл с:\122131.!!! После этого програма показала № 50

Кроме того посмотри внимательнее, может среди этих иконок найдёшь иконки компактов, которые вчера брал у соседа (они ведь не зарегистрированные).
И ещё: иконки екзешников ведь не зарегистрированы. Так почему они тоже здесь?

Мой знакомый (Pahmic) тоже такое когда-то искал. ответа так и не получил, думается, что тебе уже ответили правильно Внук © (18.01.02 16:46)

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c