Подписаться на RSS рассылку
Главная » Статьи по Delphi » ICO » Извлечение из EXE-файла иконки

Извлечение из EXE-файла иконки

Автор: Борисов Сергей

Uses ShellAPI;
...
function
ExtractICO(F:String; IconIndex: word): hIcon;
begin
Result :=ExtractAssociatedIcon(hInstance,PAnsiChar(F),IconINdex);
end;

F - путь к файлу; IconIndex - номер иконки (нумерация с 0).

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
DrawIcon(Canvas.Handle,0,0,ExtractICO(Application.ExeName,0));
end;

Просмотров: 5218

Обсудить на форуме

-1   Спам
(26.09.2009)
1. LOKOS
НЕ РАБОТАЕТ!!!ПИШЕТ ОШИБКУ ПРО KERNEL32.DLL cry ЧТО ДЕЛАТЬ????
Ответ: Обязательно большими буквами?
Все работает, в ОС начиная с Windows XP и кончая Windows 7 работает точно. В MSDN написано что в 98 должно тоже работать.


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта