Как вытащить файл из ресурса ???

← →
rlzz (2006-07-20 23:20) [0]

Собственно вот такой вапрос....

Нужно зделатьчто то на подобие инсталлера

,я тут подумал что файлы можно запихнуть в ресурсфайл , а вот вытащить их как от туда записав на винт??

← →
oxffff © (2006-07-20 23:32) [1]

LoadResource, LockResource и FindResource(Ex).

Или еще проще использовать installShield и Wise Install

← →
rlzz (2006-07-20 23:42) [2]

или innoSetup он в исходниках

а если по подробнее с маааленьким примером кода

функции эти и я нашел

← →
oxffff © (2006-07-20 23:45) [3]

Тогда подробнее суть поясните

← →
oxffff © (2006-07-20 23:48) [4]

И что вы понимаете под ресурс файлом

← →
rlzz (2006-07-20 23:49) [5]

запускаем прогу ,жмем кнопку , файл должен быть на харде ,например в корне диска С

← →
Шпиён (2006-07-20 23:53) [6]

TResourceStream

← →
rlzz (2006-07-20 23:53) [7]

{$R <файл ресурсов>},

компиленный который res workshopom например

← →
Джо © (2006-07-20 23:57) [8]

Вот, примерно, так. Все проверки в примере исключены для ясности.
var RcInfo: HRSRC; Rc: THandle; Data: Pointer; begin RcInfo := FindResource(0,ResourceName,ResourceType); Rc := LoadResource(0,RcInfo); Data := LockResource(Rc); end;
В Data будем иметь указатель на первый байт данных, занимаемых нужным ресурсом.

rlzz
функции эти и я нашел.

И что не понятного.

Создаешь res файл с ресурсом RCDATA c твоим файлом.
Компилируешь свое приложение с этим res файлом
Далее
FindResource
Потом LoadResource
и Далее LockResource
Получаешь указатель на данные своего файлика

И далее сохраняешь куда хочешь

← →
Шпиён (2006-07-21 00:00) [10]

Или так:

файл MY.RC
TEST RCDATA "TEST.EXE"

brcc32 -32 MY.RC

{$R MY.RES} .................. procedure TForm1.Button1Click(Sender: TObject); begin with TResourceStream.Create(0,"TEST",RT_RCDATA) do try SaveToFile("aaa.exe") finally Free end end;

← →
rlzz (2006-07-21 00:02) [11]

спс поробуем щас

Или даже так.
Что еще проще.

Как вытащить файл из ресурса ??? Найти похожие ветки