VPF::Странная DLL - Форум программистов

Quadr0

Дата 10.6.2005, 21:10 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:18

Дата 10.6.2005, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115

С ресурсами работают иначе.

Вот пример сохранения из ресурса в фаил.

Код


Function  ExtractFromRes2File(ResType,ResName,SaveTo:PChar):Boolean;
var
ResourceLocation: HRSRC;
ResDataHandle: THandle;
FileHandle: THandle;
ResourceSize,byteswritten: Longword;
ResourcePointer: PChar;
begin
 Result:=false;
         ResourceLocation := FindResource(HInstance,PChar(ResName),ResType);
         if ResourceLocation = 0 then exit;
         ResourceSize := SizeofResource(HInstance,ResourceLocation);
         if ResourceSize = 0 then exit;
         ResDataHandle := LoadResource(HInstance,ResourceLocation);
         if ResDataHandle = 0 then exit;
         ResourcePointer := LockResource(ResDataHandle);
         if ResourcePointer = NIL then exit;
         FileHandle := CreateFile(SaveTo,GENERIC_WRITE,FILE_SHARE_WRITE,NIL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
         if FileHandle = INVALID_HANDLE_VALUE then exit;
         WriteFile(FileHandle,ResourcePointer^,ResourceSize,byteswritten,NIL);
         CloseHandle(FileHandle);
 Result:=true;
end;

Quadr0

Дата 11.6.2005, 00:49 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:18

Дата 11.6.2005, 04:21 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115

Цитата(Quadr0 @ 11.6.2005, 00:49)

я немного не понял, а причём здесь это? Ты просто использовал WinAPI для доступа к ресурсам приложения и всё.

У тебя ДЛЛ, в её ресурсах картинки, тебе нужно это достать так?
Тогда лезь в ресурсы и доставай.

Quadr0 не RT_ICON а к примеру 'ICON' (ну если конечно так оно называется)

Цитата(Quadr0 @ 11.6.2005, 00:49)

Твой код тоже не работает. Ну например:

Да всё работает:
ExtractFromRes2File('ICON', '1001', PChar('c:\'test.ico'));
просто это пример немного иного характера, но суть таже.

Quadr0

Дата 11.6.2005, 12:17 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:18

Yanis

Дата 12.6.2005, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

Всё зависит от того как ты хранишь эти иконки в DLL. Предположу свой вариант. Если эти иконки видны в редакторе (любом) ресурсов в разделе ICON, там же где храниться MAINICON библиотеки (например, если ты запихнул иконки в DLL при помощи Project Resources), то их можно загрузить таким образом:

Код


var
  hi: THandle;
begin
  // загружаем 4 иконку
  hi := ExtractIcon(hInstance, 'EdStudioRes.dll', 4);
  DrawIcon(Canvas.Handle, 10, 10, hi);
end;

Причём не важно, какое имя имеет иконка в ресурсе. Указывается её порядковый номер, - в этом недостаток этого метода.

Это сообщение отредактировал(а) Yanis - 12.6.2005, 12:59

--------------------

*щёлк*

Quadr0

Дата 12.6.2005, 15:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:19

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »