Как я могу сохранить бинарный файл в C + + Builder?

Я хочу изменить эту часть кода в программе, которая захватывает катушку печати и сохраняет упакованный файл, содержащий изображения emf. Но я хочу сохранить изображения отдельно, не спрашивая путь, скажем, в c :.
Программа, которую я скачал с http://www.mblabsoft.com/index13.html

static bool __fastcall GetOutputFileName (PDEV *ppdev)
{
if (ppdev->OutputFileName.IsEmpty ())
{
OPENFILENAMEW ofn;
wchar_t OutFile[261] = {0};
WideString ATitle = WideString (EMP_PRINTERNAME) + WideString (L": save output for '") + ppdev->DocName + WideString (L"'");

memset (&ofn,0,sizeof (OPENFILENAMEW));

ofn.lStructSize = sizeof (OPENFILENAMEW);
ofn.hwndOwner = GetForegroundWindow ();
ofn.lpstrFile = OutFile;
ofn.nMaxFile = 260;
ofn.lpstrFilter = L"Enhanced Metafile Package\0*.EMP\0";
ofn.lpstrDefExt = L"emp";
ofn.nFilterIndex = 1;
ofn.lpstrTitle = ATitle.c_bstr ();
ofn.lpstrFileTitle = NULL;
ofn.nMaxFileTitle = 0;
ofn.lpstrInitialDir = NULL;
ofn.Flags = OFN_PATHMUSTEXIST;

WORD fpucw = GetFPUControlWord ();
bool res = GetSaveFileNameW (&ofn);
SetFPUControlWord (fpucw);

if (res) ppdev->OutputFileName = WideString (OutFile);
else return false;
}

return true;
}

static bool __fastcall SaveSpoolData (PDEV *ppdev)
{
if (!GetOutputFileName (ppdev)) return false;

try
{
TPrintReadStream *APrnStream = new TPrintReadStream (ppdev->PrinterName,1024);
try
{
TFileStream *APkgStream = new TFileStream (ppdev->OutputFileName,fmCreate);
try
{
TZipPackage *APkg = new TZipPackage (APkgStream);
try
{
TSplRecordHeader ASplRec;
TMemoryStream *AMemStream = new TMemoryStream ();
try
{
int AFileIndex = 1;

while (APrnStream->Read (&ASplRec,sizeof (TSplRecordHeader)) == sizeof (TSplRecordHeader))
{
AMemStream->Position = 0;
switch (ASplRec.Type)
{
case EMRI_METAFILE:
case EMRI_FORM_METAFILE:
case EMRI_BW_METAFILE:
case EMRI_BW_FORM_METAFILE:
case EMRI_METAFILE_DATA:
AMemStream->SetSize ((int)(ASplRec.Size));
if (APrnStream->Read (AMemStream->Memory,AMemStream->Size) == AMemStream->Size)
{
APkg->AddStream (AMemStream,false,AnsiString (AFileIndex) + ".emf",Now (),
FILE_ATTRIBUTE_ARCHIVE,ppdev->DocName + " (page " + AnsiString (AFileIndex) + ")");
AFileIndex++;
}
break;

case EMRI_HEADER:
APrnStream->Skip (ASplRec.Size - sizeof (TSplRecordHeader));
break;

default:
APrnStream->Skip (ASplRec.Size);
}
}
}
__finally
{
delete AMemStream;
}
}
__finally
{
delete APkg;
}
}
__finally
{
delete APkgStream;
}
}
__finally
{
delete APrnStream;
}
}
catch (...)
{
return false;
}

return true;
}