谁帮帮我，将这几句Pascal翻译成C++。(50分)

procedure CopyResToFile(const DestFile, ResName: string;
ResType: PChar = RT_RCDATA);
var
res: TResourceStream;
begin
res := TResourceStream.Create(HInstance, ResName, ResType);
try
if FileExists(DestFile) then
DeleteFile(PChar(DestFile));
try
res.SaveToFile(DestFile);
finally
res.Free;
end;
except
raise Exception.Create('Create File Fail');
end;
end;

void CopyResToFile(const string DestFile, ResName;pchar ResType= RT_RCDATA);
{
TResourceStream res;
res=new TResourceStream(HInstance, ResName, ResType);
try
{
if FileExists(DestFile)
DeleteFile(PChar(DestFile));
try
res->SaveToFile(DestFile);
finally
{
delete res;
};
}
except
raise Exception.Create('Create File Fail');
}

对不起，我没说清楚。
是翻译成VC++，不是BCB。

CFileStatus status;
其余参考msdn。

接受答案了.