Главная страница
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.035 c
1-1127467175
MegaVolt
2005-09-23 13:19
2005.10.16
Как тестировать в DUnit классы которые куда то отдают результат?


1-1127395980
.::AndreW::.
2005-09-22 17:33
2005.10.16
На мультемелийной клаве есть три кнопки запуск Word, Exel...


14-1127590552
KilkennyCat
2005-09-24 23:35
2005.10.16
Предлагаю всем соседям по куоомуналке, родственничкам и


14-1124987974
TG
2005-08-25 20:39
2005.10.16
АНИМАЦИЯ


2-1127104746
nik7777
2005-09-19 08:39
2005.10.16
Создать текстовый файл