Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.072 c