VPF::Вызов процедуры из длл - Форум программистов

Volkogriz

Дата 6.10.2010, 03:08 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1

Доброе Время суток.
Помагите пожалуйсто!
Есть длл с ресурсом, я раньше добовлял этот код:

Код


procedure ExtractRes(ResType, ResName, ResNewName : String) stdcall; 
var 
Res : TResourceStream; 
begin 
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); 
Res.SavetoFile(ResNewName); 
Res.Free; 
end;

И писал для извлечения каждого ресурса этот код:

Код


procedure ???; 
 begin 
     ExtractRes('???', '???', WinDir+ ???); 
   end; 
end; exports ???;

Но это надо писать для каждого ресурса.
Есть ли возможность вызвать процедуру ExtractRes из исполняимого файла например

Код


procedure ExtractRes(ResType, ResName, ResNewName : String) stdcall; 
var 
Res : TResourceStream; 
begin 
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); 
Res.SavetoFile(ResNewName); 
Res.Free; 
end; 
exports ExtractRes; 
В exe: 

procedure ExtractRes(ResType, ResName, ResNewName : String) stdcall; external 'data\wallRess.dll'; 

procedure TForm1.Button3Click(Sender: TObject); 
begin 
ExtractRes('???', '???', 'путь'); 
end;

Это неработает!!!
Помагите пожалуйсто!
Зарание благодарен!
С уважением,
Volkogriz !

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

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

RomanEEP

Дата 6.10.2010, 08:32 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 1
Всего: 8

Передавай в DLL функцию HInstance - она указывает в каком файле искать ресурс

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

Электронные экзамены

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