Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.03;
Скачать: CL | DM;

Вниз

Dll с ресурсами   Найти похожие ветки 

 
Dstr ©   (2006-05-10 23:23) [0]

Доброй ночи!!!
Скажите,как достать из библиотеки тот или иной ресурс,например Wav(Битмапы дочтавать я умею)


 
Rouse_ ©   (2006-05-10 23:51) [1]

Также как и битмап, только измени тип ресурса...


 
GanibalLector ©   (2006-05-11 01:01) [2]

Например так :

function SaveOtherDLL(var FileName:String):Boolean;
 var hRes,hResData:THandle;
     Mem:Pointer;
     hFile:Integer;
     Buff   : array [0..MAX_PATH] of Char;
begin
 Result:=False;
 if GetTempPath(SizeOf(Buff),Buff)<>0 then
 begin
   FileName:= StrPas(Buff)+LibName+".tmp";
   if FileExists(FileName) then
   Result:=True else
   begin
     hRes:=FindResource(hInstance,LibName,RT_RCDATA);
     if hRes<>0 then
     begin
       hResData:=LoadResource(HInstance,hRes);
       if hResData<>0 then
       begin
         Mem:=LockResource(hResData);
         hFile:=FileCreate(FileName);
         if hFile<>-1 then
         begin
           if FileWrite(hFile,Mem^,SizeOfResource(hInstance,hRes))<>-1 then
            Result:=True;
           FileClose(hFile);
         end;
       end;
     end;
   end;
 end;
end;
//



 
Dstr ©   (2006-05-11 12:21) [3]

Спасибо за вариант,испробую,а картинки доставать ваще легко там у класса у какогото толи TBitmap толи эшо чето есть спец функция LoadFromResurseID а FindResource я пробовал использовать,но ничего не вышло(прога заканчивалась с ошибкой) токо судя по названию SaveOtherDLL сохраняет ресурсы,а не наоборот,но ето мне тоже пригодится...



Страницы: 1 вся ветка

Текущий архив: 2006.09.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.065 c
2-1155117043
Sistr
2006-08-09 13:50
2006.09.03
чернобелое -> цветное


15-1155003142
SkyRanger
2006-08-08 06:12
2006.09.03
Будущее Windows


1-1153172361
Sholom
2006-07-18 01:39
2006.09.03
Прблема с Chart


4-1146765278
Colonel
2006-05-04 21:54
2006.09.03
Активизация окна


1-1153803713
Zilog_
2006-07-25 09:01
2006.09.03
Как правильно перевести с С на Делфи?