1:
2:
3:

implementation
{$R *.DFM}
{$R DBRES.res}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function ExtractRes(ResType, ResName, ResNewName: string): Boolean;
var
  Res: TResourceStream;
begin
  Result := False;
  Res := TResourceStream.Create(Hinstance, Resname, PChar(ResType));
  try
    Res.SavetoFile(ResNewName);
    Result := true;
  finally
    Res.Free;

           end;
    end;                    

1:

ACCESSDB RCDATA C:\DBRES.dbf                    

1:

{$R DBRES.res}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function ExtRes(ResName,sZiel: string): Bool;
var stmResource: TResourceStream;
begin
 result:=true;
 try
  stmResource:=TResourceStream.Create(0,ResName,RT_RCDATA);
  try
   stmResource.SaveToFile(sZiel);
  except
   result:=false;
  end;
  stmResource.free;
 except
  result:=false;
 end;
end;                    

1:

if ExtRes('ACCESSDB','C:\dtabase.dbf') then ShowMessage('Datei extrahiert.');