Любой файл в ресурсы

[phphel]

Подскажите, как извлечь любой файл из ресурсов?

Мне нужно сохранить его куда нибудь.
Использую вот эту процедуру

procedure Extract;
var
  St: TResourceStream;
begin
  St := TResourceStream.Create(HInstance, 'file', 'BINARY');
  try
    with TFileStream.Create('file.file', fmCreate) do
    try
      CopyFrom(St, St.Size);
    finally
      Free;
    end;
  finally
    St.Free;
  end;
  if not FileExists('file.file') then
    Raise Exception.Create('Fatal Error: Can''t extract file.file');
end;

Но она мне отвечает почему-то, "Resource file not found".
Хотя .res подключен, имя верное.

мне нужно что бы можно было работать с любыми файлами...

[RomanStalin]

Все дело в ошибке здесь
procedure Extract;
var
St: TResourceStream;
begin
St := TResourceStream.Create(HInstance, 'file', 'BINARY');
try
with TFileStream.Create('file.file', fmCreate) do
try
CopyFrom(St, St.Size);
finally
Free;
end;
anally
St.Free;
end;
if not FileExists('file.file') then
Raise Exception.Create('Fatal Error: Can''t extract file.file');
end;

[phphel]

Где именно?

[Serge_Bliznykov]

Хотя .res подключен, имя верное.

позвольте выразить в этом свои сомнения!

Покажите содержимое ресурсного файла (.RC) и место в коде, где этот ресурс подключён!

[phphel]

file file "1.bat" это .rc файл

вызываю так

St := TResourceStream.Create(HInstance, 'file', 'BINARY');

Подключаю как обычно

implementation

{$R *.dfm}
{$R my.RES}

[Serge_Bliznykov]

ну уж если Вы создаёте ресурс с именем file и типом file
так будьте добры его так и открывать:

  St := TResourceStream.Create(HInstance, 'file', 'file');

p.s. А вообще придумать имя ресурса file и тип ресурса file — крайне неудачная идея!

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=69505

P.S. Спам, спам, спам

[phphel]

Serge_Bliznykov, разобрался, спасибо