Вниз
Скачать: CL | DM;

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

 
ЗлойЕНОТ ©   (2007-02-24 19:49) [0]

У меня тут вопрос один возник, нигде не могу найти ответа. Вопрос следующий: можно ли восстановить файл из RES в его исзначальном виде? И если можно, то как это сделать?


 
Leonid Troyanovsky ©   (2007-02-25 08:55) [1]


> ЗлойЕНОТ ©   (24.02.07 19:49)  

>  Вопрос следующий: можно ли восстановить файл из RES в его
> исзначальном виде? И если можно, то как это сделать?

В изначальном, т.е. *.rc? Нельзя.
А вытащить из него ресурсы - возможно.
Есть много программ для этого, скажем, dede, restorator.

Если имеющаяся программа, например, ..\demos\resxplor\,
не понимает res, можно для начала сделать dll.

--
Regards, LVT.


 
ЗлойЕНОТ ©   (2007-02-26 12:36) [2]

Спасибо за посказку, попозже сам догнал как это сделать. Хотя может я не совсем правильно вопрос задал...
Если интересно то вот:

var
 ResStream: TResourceStream;
 FileStream: TFileStream;
begin
 try
   ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
   try
     FileStream := TFileStream.Create(FileName, fmCreate);
     try
       FileStream.CopyFrom(ResStream, 0);
     finally
       FileStream.Free;
     end;
   finally
     ResStream.Free;
   end;
 except
   on E:Exception do
   begin
     DeleteFile(FileName);
     raise;
   end;
 end;
end;

где  
    "1" и "RT_RCDATA" - параметры ресурса,
    "FileName" - Имя файла, например С:\Run.exe



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c
2-1172348879
Kolan
2007-02-24 23:27
2007.03.18
А можно ли как-то узнать кол-во файлов в папке?


2-1172263631
Allexandr
2007-02-23 23:47
2007.03.18
Процедуры


15-1171978977
Ega23
2007-02-20 16:42
2007.03.18
А куда в Delphi7 делся QuickReport?


3-1167045552
tytus
2006-12-25 14:19
2007.03.18
10g Express edition & DOA 4.0.7 - проблема с коннектом


2-1172509432
Resvald
2007-02-26 20:03
2007.03.18
Помогите плиз, никак не могу прогу заставить свой же файл прочест




   Наверх