| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сохранить файлы находяшиеся в ресурсах программы [D7, WinXP]
BABY © (2005-09-23 13:35:00)Как будет выглядеть функция на 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;
Zeqfreed (2005-09-23 14:29:00) [1]BABY (23.09.05 13:35)
Смотри в справке возможные значения параметра ResType.
TUser (2005-09-23 14:21:00) [2]См. TResourceStream. Загрузи из ресурса и вызови метод SaveToFile
| |
