вызов процедуры из exe?

[Volkogriz]

Доброе время суток!!!
Уменя вопрос !?
Создаём exe делаем файл ресурсов например помещаем туда 20 курсоров компилируем этот exe, назавём его ресурс.exe
ДАЛЕЕ создоём какую-лобо программу назавём её программ.exe .
Вопрос как при нажатии в программ.exe на кнопку курсор1 извлечь из ресурс.exe не все ресурсы а только 1 ресурс соответствующий названию например курсор1 ну т.д и т.п!
Проще объяснить не получаетя мыслю впаймать не магу!
ЗАРАНИЕ благадарю !
С уважением Volkogriz!

[JTG]

Ну так в чем проблема?

var Module, Cursor: THandle;
begin
  Module := LoadLibrary('proga.exe');
  Cursor := LoadCursor(Module,'cursor1')
end;

Анимированные курсоры грузятся через LoadImage

* Может быть "правильнее" будет использовать LoadLibraryEx с флагом LOAD_LIBRARY_AS_IMAGE_RESOURCE

[Volkogriz]

JTG благадарю!!!
Мне нужно создать DLL-ку или exe-ку работающию в тихую в фоновам режими с ресурсами и по заказу главного приложение извлекать из неё оприделённый ресурс {именно извлекать} иногда загружать из самой библиотеки!
JTG ваш код только загружает ресурсы в приложение!?
На пример:
Открываем главное приложение жмём на кнопку рисунок_1 и из DLL-ки или exe-ки извлекается в указоную папку например 1\2\3\рисунок_1.bmp и всё приложение само им вертит как хочет на пример ставит на фон рабочего стола и т.п!
Так же с музикой и с другими файломи какие я внису в .RES файл!
Нужно именно модуль к главному приложению иначе моё приложение будит весить 2.5 гига!

[JTG]

Хранить 2.5 гб в ресурсах не самая хорошая идея...
Кстати есть в делфи класс TResourceStream

var Stream: TResourceStream;
     Module: THandle; 
Begin
  Module:=LoadLibrary('resource.dll');
  RS:=TResourceStream.Create(Module, 'ИМЯ РЕСУРСА', 'ТИП РЕСУРСА');
...
  <RS.read, write, SaveToFile... короче стандартные методы>
...
  RS.free;
  CloseHandle(Module);
end;

А вообще не вижу смысла делать исполняемый файл, готорый не будет исполнятся Можно скачать что-то типа ZipForge, там точно так же организована работа с потоками, ну и сжатие есть, работает быстро

[Volkogriz]

Ещё раз блогододазю JTG!!!
С уважением Volkogriz!

[Volkogriz]

JTG подчерпнув из вашего кода главное, я его немного переделал!
Зделал так сказать себе поудобней Но вот проблемка!!!
Компелирует а дальше самое "интересное"
жмём на кнопку извлечь а он пишет 'resource BITMAP1 not found'
Пачимууу он его не обнаааруживает!!????
Чаво я ему ни так зделал где ашибкаааа!
Вроде всё правельно dll-ку он читает при активном приложении со злости хотел удолить dll-ку так оно приложения меня так послало!!!
Выручайте укажите на допущиные ошибки пожааалусто!!!

PHP код:

var
Form1: TForm1;
ResModule: THandle;
Res : TResourceStream;
implementation

{$R *.dfm}
procedure ExtractRes(ResType, ResName, ResNewName : String);
begin
ResModule:=LoadLibrary('Project2.dll');
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
Begin
  ExtractRes('BITMAP', 'BITMAP1', 'BI/BIT.bmp');
end;
end. 


За рание блогодарен!!!
С уважением Volkogriz!!!

[mihali4]

Прочитал в поток. И убил поток.
И удивляется - как, мол, это так - ничего не могу прочитать из убитого, т.е. несуществующего потока...

[Volkogriz]

mihali4 Спасибо!!!
С уважением Volkogriz!!!

[JTG]

Хе-хе, да )
Вызывать деструкторы, закрывать хэндлы чаще всего надо при завершении работы приложения
--
Хм, хотя тут же SaveToFile вызывается когда поток ещё есть
Наверняка со строками косяк, pchar там может не надо, проверь

'BI/BIT.bmp' тут вроде слэш развернуть надо или вообще лучше заменить на ExtractFilePath(Application.Exename )+'BI\BIT.bmp'

[Volkogriz]

шас попробую!!
Спасибо!