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

Вниз

Как сохранить файлы находяшиеся в ресурсах программы   Найти похожие ветки 

 
BABY   (2005-09-23 13:35) [0]

Как будет выглядеть функция на Delphi для сохранения нужного мне ресурса на диске. На Visual Basic у меня выглядело так:

Private Function SaveFile(SF_B As Byte, SF_Path As String) As Boolean
Dim SFa() As Byte
On Error GoTo 99
SFa() = LoadResData(SF_B, "CUSTOM")
FileNo = FreeFile
Open SF_Path For Binary Access Write As FileNo
   Put #FileNo, , SFa()
Close FileNo

SaveFile = True
99
End Function


Пробывал такой вариант, ни чего не получается выдает ошибку (EResNotFound, ресурс ааа не найден):

procedure TForm1.Button2Click(Sender: TObject);
begin
 ExtractRes("EXEFILE", "aaa", "rar.exe");
end;

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


 
TUser ©   (2005-09-23 14:21) [1]

См. TResourceStream. Загрузи из ресурса и вызови метод SaveToFile


 
Zeqfreed ©   (2005-09-23 14:29) [2]

BABY   (23.09.05 13:35)
Смотри в справке возможные значения параметра ResType.



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

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

Наверх




Память: 0.47 MB
Время: 0.046 c
9-1117733503
Валера
2005-06-02 21:31
2005.10.16
Взрыв на OpenGL


3-1125471061
Samozvanka
2005-08-31 10:51
2005.10.16
SQL запрос + порядковый номер записи в возвращённом результате.


1-1127802387
Jolik
2005-09-27 10:26
2005.10.16
Нашел в сети апдейт на Delphi7 - а он гад...


14-1127418388
vecna
2005-09-22 23:46
2005.10.16
Полезный линк.


2-1127212304
ZSergey
2005-09-20 14:31
2005.10.16
Как получить значение ...