| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Звук, графика и видео > Ешё раз про замену иконок |
| Автор: RA 13.6.2002, 19:16 |
| Вот что я надыбал из одной недоконченной программы, давать её полный исходник безсмысленно так-как всё что связанно с иконкой приведено тут, сразу скажу код недоработанный и выдернут из под { .... }, автору было лень его доделывать, но я думаю что в это кусочке есть смысл. Может кто и доведёт его до ума. Ещё раз напомню вопросс: как заменить иконку у файла. var F,F2:File; buf:array[1..2218] of Char; i:integer; const iconaddr=300651; //я так понял что это смещение к началу иконки //но его число зависит размера файла for i:=1 to 2218 do buf[i]:=chr(0); Seek(F2,$14); BlockRead(F2,buf,filesize(F2)-20); CloseFile(F2); Seek(F,iconaddr); BlockWrite(F,buf,2218); Вот, какие мысли лезут в голову: 1 Как определить начало иконки? 2 Какая максимальная длинна у иконок? 3 Как преобразовать Фаил *.ico в байты? |
| Автор: Song 13.6.2002, 20:00 |
| Дико извиняюсь.. а ExtractIcon(), ExtractIconEx() икноку случайно не выдёргивают ? |
| Автор: RA 13.6.2002, 20:07 | ||
Да собственно вопросс не в этом как выдернуть иконку, или ты имеешь в виду что эти функции могут указать на место расположения иконки? |
| Автор: Vit 14.6.2002, 16:10 |
| Вот небольшая статейка, найденная мной в FAQ(http://blackman.km.ru/myfaq/cont4.phtml). Может пригодится? Функция CreateIconFromResourceEx создает иконку или курсор из битов ресурса, описывающих иконку. перевод функции CreateIconFromResourceEx. CreateIconFromResourceEx Функция CreateIconFromResourceEx создает иконку или курсор из битов ресурса, описывающих иконку. HICON CreateIconFromResourceEx( PBYTE pbIconBits, // указатель на биты ресурса DWORD cbIconBits, // число бит в буфере BOOL fIcon, // флаг иконки или курсора DWORD dwVersion, // версия формата Windows int cxDesired, // желаемая ширина иконки или курсора int cyDesired, // желаемая высота иконки или курсора UINT uFlags ); Параметры pbIconBits – указывает на буфер, содержащий биты ресурса иконки или курсора. Эти биты обычно загружаются вызовами функций LookupIconIdFromDirectory (в Windows 95 вы также можете использовать функцию LookupIconIdFromDirectoryEx) и LoadResource. cbIconBits – определяет размер, в байтах, набора битов, на который указывает параметр pbIconBits. fIcon – определяет, будет ли создаваться иконка или курсор. Если значение этого параметра равно TRUE, создается иконка. Иначе создается курсор. dwVersion – определяет номер версии формата иконки или курсора для битов ресурса, на которые указывает параметр pbIconBits. Параметр может принимать одно из следующих значений: Формат Значение Windows 2.x 0x00020000 Windows 3.x 0x00030000 Все Win32 приложения должны использовать для иконок и курсоров формат Windows 3.x. cxDesired – определяет желаемую ширину иконки или курсора в пикселях. Если значение этого параметра равно нулю, функция использует значения метрики системы SM_CXICON или SM_CXCURSOR для установки ширины. cyDesired – определяет желаемую высоту иконки или курсора в пикселях. Если значение этого параметра равно нулю, функция использует значения метрики системы SM_CXICON или SM_CXCURSOR для установки высоты. uFlags – определяет комбинацию из следующих значений: Значение Пояснение LR_DEFAULTCOLOR Используется цветовой формат по умолчанию. LR_MONOCHROME Создается монохромная иконка или курсор. Возвращаемые значения В случае успеха возвращается дескриптор иконки или курсора. В случае неудачи возвращается нуль. Для получения дополнительной информации об ошибке вызовите функцию GetLastError. Комментарии Функции CreateIconFromResourceEx, CreateIconFromResource, CreateIconIndirect, GetIconInfo и LookupIconIdFromDirectoryEx позволяют приложениям оболочки и браузерам иконок проверять и использовать ресурсы См. также BITMAPINFOHEADER, CreateIconFromResource, CreateIconIndirect, GetIconInfo, LoadResource, LookupIconIdFromDirectoryEx . хелп по WinAPI: http://www.winnt.rsm.org.ru/winapi/win32api.exe |
| Автор: RA 14.6.2002, 17:19 |
| Вот глянька что, я нашёл. Название громкое "Замена ресурсов" но я не втыкаю как этот код можно заставить работать, может ты воткнёшь. http://www.sources.ru/delphi/delphi_resource_to_from_dll_exe.shtml |