Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.005 c
3-97150
Саша
2002-05-06 12:37
2002.05.30
EDBEngineError Translate error.Value out of bounds


4-97449
SMike
2002-03-27 20:28
2002.05.30
RichEdit


7-97429
pvn
2002-03-03 16:44
2002.05.30
чтение данных с ком порта...


6-97369
MemoryLeak
2002-03-18 12:39
2002.05.30
UDP.


1-97235
space_center
2002-05-20 18:47
2002.05.30
Количество символов в RichEdit





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский