怎样在程序中将资源文件中包含的文件读出，并保存为磁盘文件(100分)

res.rc:
db file access.mdb

我想在程序中将db读出，并还原为磁盘文件 access.mdb.

即使我的记忆没那么好，我只要打开大富翁离线数据库，马上就可以找到一百个得这一百分的记录。
你还是找一找吧。呵呵。。

ExtractRes(文件类型,资源文件中的文件名,将要保存的文件名)
//调用释放函数


//********从资源文件中释放文件函数****************************************************************
function ExtractRes(ResType, ResName, ResNewName:string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname,Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
end;

多人接受答案了。