Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.30;
Скачать: CL | DM;

Вниз

Выцепить Маленькую иконку из файла...   Найти похожие ветки 

 
alxx ©   (2002-05-20 15:51) [0]

Если я использую GetAssociatedIcon - она мне выдает иконку заданного номера. А как мне вытащить именно маленькую 16х16, которая отображается, например в Explorer"e?


 
MBo ©   (2002-05-20 15:57) [1]

попробуй
This code extracts small and large icons from application and draws them.
uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
LargeIcon: HIcon;
SmallIcon: HIcon;
IconCount: Integer;
I: Integer;
FileName: PChar;
begin
FileName := "C:\Windows\RegEdit.exe";
IconCount := ExtractIconEx(FileName, -1, LargeIcon, SmallIcon, 0);
for I := 0 to Pred(IconCount) do
begin
ExtractIconEx(FileName, I, LargeIcon, SmallIcon, 1);
DrawIcon(Canvas.Handle, 5 + I * 36, 5, LargeIcon);
DrawIconEx(Canvas.Handle, 5 + I * 36, 50, SmallIcon, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), 0, 0, DI_NORMAL);
end;
end;



 
alxx ©   (2002-05-20 16:05) [2]

Спасибо, сейчас попробую...


 
alxx ©   (2002-05-20 16:12) [3]

Да! Все круто. А я блин последние пару часов с этим мучался. Оказывается надо смотреть See Also.
Еща раз спасибо.



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

Текущий архив: 2002.05.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
1-97305
Катерина
2002-05-19 12:13
2002.05.30
2 вертикальных оси в TChart


3-97213
Санёк
2002-05-10 11:48
2002.05.30
Ошибка, когда делаю backup...


1-97308
Пользователь
2002-05-18 08:58
2002.05.30
RadioGroup & январь


3-97171
HDD
2002-05-02 08:20
2002.05.30
Помогите люди добрые!


3-97117
Oleg-2
2002-05-09 16:43
2002.05.30
Сохранение базы данных