как сохранить файл

[cargo29]

Как можно сохранить архив или любой другой файл из ресурса???

TFILE RCDATA C:\1.rar


файл ресурса в архиве

[MaxNik2009]

Как можно сохранить архив или любой другой файл из ресурса???

как-то так:

procedure TForm1.ExtractResourse(const AResName, ANewName: string);
var
  rsDrivers: TResourceStream;
begin
  rsDrivers:= TResourceStream.Create(HInstance, AResName, RT_RCData);
  rsDrivers.SaveToFile(ANewName);
  rsDrivers.Free;
end; 

procedure TForm1.bbOklClick(Sender: TObject);
begin
  ExtractResourse('TestResource', 'C:\TestFile.exe');
end;
end;

[cargo29]

Сообщение от MaxNik2009

как-то так:

procedure TForm1.ExtractResourse(const AResName, ANewName: string);
var
  rsDrivers: TResourceStream;
begin
  rsDrivers:= TResourceStream.Create(HInstance, AResName, RT_RCData);
  rsDrivers.SaveToFile(ANewName);
  rsDrivers.Free;
end; 

procedure TForm1.bbOklClick(Sender: TObject);
begin
  ExtractResourse('TestResource', 'C:\TestFile.exe');
end;
end;

можешь посянить вот эту строчку я разобрался но не понимаю что пишу

rsDrivers:= TResourceStream.Create(HInstance, AResName, RT_RCData);
AResName - это название в файле ревурса
RT_RCData - это я понимаю тип данных ресурса
HInstance а это что???
TResourceStream

[MaxNik2009]

HInstance - это handle модуля, из ресурсов которого будет извлекаться файл.
в нашем случае файл извлекается из ресурсов нашей программы.

[cargo29]

Сообщение от MaxNik2009

HInstance - это handle модуля, из ресурсов которого будет извлекаться файл.
в нашем случае файл извлекается из ресурсов нашей программы.

а так вообще таким способом почти все сохранять???

[MaxNik2009]

если извлекаешь файлы из своей программы, то везде будет HInstance. А если например из ресурсов Dll извлекаешь то примерно так:

var
  hLib: Handle;
  rsDrivers: TResourceStream;
begin
  hLib:= LoadLibrary('MyDll.dll');
  rsDrivers:= TResourceStream.Create(hLib, 'testResource', RT_RCData);
  rsDrivers.SaveToFile('C:\Test.txt');
  rsDrivers.Free;
  FreeLibrary(hLib);
end;

[cargo29]

Сообщение от MaxNik2009

если извлекаешь файлы из своей программы, то везде будет HInstance. А если например из ресурсов Dll извлекаешь то примерно так:

var
  hLib: Handle;
  rsDrivers: TResourceStream;
begin
  hLib:= LoadLibrary('MyDll.dll');
  rsDrivers:= TResourceStream.Create(hLib, 'testResource', RT_RCData);
  rsDrivers.SaveToFile('C:\Test.txt');
  rsDrivers.Free;
  FreeLibrary(hLib);
end;

ага понял то есть когда она в самой проге русурс то HInstance показываем что она в ней, а если из библиотеки то подгружаем библиотеку... понял спасибо большое )))