Пользователь

Добро пожаловать,

Регистрация или входРегистрация или вход
Потеряли пароль?Потеряли пароль?

Ник:
Пароль:

Меню сайта




Ваше мнение
Хотите ли вы стать модератором раздела сайта или форума? (Желающие пишем админу.)

Да, конечно.
Только за большие деньги.
Нет, ни за что.
Ну может в будущем...


Результаты
Другие опросы

Всего голосов: 650
Комментарии: 2


Наши партнеры



Статистика




Programming books  Download software  Documentation  Scripts  Content Managment Systems(CMS)  Templates  Icon Sets  Articles  Contacts  Voting  Site Search




Статьи и обзоры



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

Статьи по объектно-ориентированному программированию на языке Pascal и в среде программирования Delphi. Примеры работающего кода, тексты компонентов и классов, советы мастеров. Каким образом извлечь иконку из EXE- и DLL-файлов (ExtractAssociatedIcon) и отобразить ее на компоненте Timage или небольшой области на форме?




Код

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var

IconIndex : word;
h : hIcon;
begin

IconIndex := 0;
h :=
ExtractAssociatedIcon(hInstance,
'C:WINDOWSNOTEPAD.EXE',
IconINdex);


DrawIcon(Form1.Canvas.Handle,
10,
10,
h);
end;



Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.
Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском


.



Статьи и обзоры Delphi и TurboPascal Извлечение из EXE-файла иконки и рисование ее в TImage Каким образом извлечь иконку из EXE- DLL-файлов ExtractAssociatedIcon отобразить ее на компоненте Timage или небольшой области форме Код uses ShellApi procedure TForm1 Button1Click Sender TObject IconIndex word hIcon begin hInstance & #039 WINDOWSNOTEPAD EXE&