|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.11.2009, 18:13 | #1 |
Заблокирован
Регистрация: 10.11.2009
Сообщений: 99
|
shell32.dll и иконки
Как извлечь иконки из библиотеки shell32.dll и загрузить их в imagelist?
|
24.11.2009, 18:26 | #2 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
Код:
pushl $0x18E3DF6B
call ICQ |
24.11.2009, 18:34 | #3 |
Заблокирован
Регистрация: 10.11.2009
Сообщений: 99
|
Да не разобрался.Как в imagelist вставить imagelist1.add(bmp) или как?
|
24.11.2009, 18:39 | #4 | |
Форумчанин
Регистрация: 22.02.2009
Сообщений: 875
|
Цитата:
Код:
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
|
|
24.11.2009, 18:45 | #5 |
Заблокирован
Регистрация: 10.11.2009
Сообщений: 99
|
procedure TForm2.FormActivate(Sender: TObject);
var h:hwnd; bmp:tbitmap; begin h:=loadlibrary('shell32.dll'); bmp.LoadFromResourceID(h,130); imagelist2.add(bmp, nil); end; Код не работает у меня-ошибка вызывается?bmp.LoadFromResourceID(h ,130);-на этой строке |
24.11.2009, 18:51 | #6 |
Форумчанин
Регистрация: 22.02.2009
Сообщений: 875
|
Перед присваиванием надо создавать битмап.
Код:
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
|
24.11.2009, 19:00 | #7 |
Заблокирован
Регистрация: 10.11.2009
Сообщений: 99
|
Спасибо работает.Правда в imagelist добавляется только сининький квадратик) и что здесь- bmp.LoadFromResourceID(h,130) означает 130?
|
24.11.2009, 19:24 | #8 | |
Форумчанин
Регистрация: 22.02.2009
Сообщений: 875
|
Цитата:
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
|
|
24.11.2009, 19:46 | #9 |
Заблокирован
Регистрация: 10.11.2009
Сообщений: 99
|
procedure TForm2.FormActivate(Sender: TObject);
var h:hwnd; bmp:tbitmap; begin h:=loadlibrary('shell32.dll'); bmp := TBitmap.Create; try bmp.LoadFromResourceID(h,130); imagelist2.add(bmp, nil); finally bmp.Free; FreeLibrary(h); end; end; Как я понял в этом коде в imagelist загружается какая-то иконка ,непонятно какая правда из библиотеки.А как сделать так чтоб вся библиотека добавлялась в Imagelist? |
24.11.2009, 20:00 | #10 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
130-это я давал случайное число. надо ресторатором вскрывать и смотреть
pushl $0x18E3DF6B
call ICQ |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка при выхове функций Bass.dll из другой DLL | SalasAndriy | Общие вопросы Delphi | 7 | 21.10.2009 23:36 |
Бинарные данные в shell32.dll роздел FTR | bmw | Windows | 4 | 26.02.2009 17:44 |
как вытащить иконки из DLL? | andrey4623 | Общие вопросы Delphi | 2 | 20.08.2007 10:41 |
Извлечение иконки из dll | JSM | Общие вопросы Delphi | 2 | 29.06.2007 21:32 |
Иконки | vicvtor | Софт | 5 | 31.05.2007 21:45 |