Статистика | Зарегистрировано на сайте: Всего: 51635
Онлайн всего: 9 Гостей: 9 Пользователей: 0
|
|
Каталог статей
Извлечение из EXE-файла иконки и рисование ее в TImage I
Каким образом извлечь иконку из EXE- и DLL-файлов (ExtractAssociatedIcon) и отобразить ее на компоненте Timage или небольшой области на форме?
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject); var
IconIndex : word; h : hIcon;begin
IconIndex := 0; h := ExtractAssociatedIcon(hInstance, 'C:\WINDOWS\NOTEPAD.EXE', IconINdex);
DrawIcon(Form1.Canvas.Handle, 10, 10, h);end;
|
Категория: API | Добавил: Lerka (22 Ноя 2012)
|
Просмотров: 392
| Рейтинг: 1.0/
4
Оштрафовать
| Жаловаться на материал |
|
|