Форум: "Основная";
Текущий архив: 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.041 c