Главная страница
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-97339
8787
2002-05-19 23:14
2002.05.30
значок проги на GroupBox7


1-97226
Dr.Pipe
2002-05-18 20:22
2002.05.30
Помогите с двумя формами


1-97333
Sterh1
2002-05-18 20:31
2002.05.30
Files


3-97144
abcd
2002-05-04 22:59
2002.05.30
Как можно остановить сервер Interbase


6-97368
alexay
2002-03-20 12:57
2002.05.30
Передача письма из дельфи с текстом сообщения и прикрепленными файлами!