void __fastcall TForm1::Button4Click(TObject *Sender)
{
   TRegistry *Reg=new TRegistry;
   Reg->RootKey=HKEY_LOCAL_MACHINE;
   Reg->OpenKey("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Printers\\傳真\\DsDriver", false);
   if(Reg->ValueExists("printMediaSupported"))
   {
      DWORD dwBuf=Reg->GetDataSize("printMediaSupported");
      BYTE *bBuf=new BYTE[dwBuf];
      Reg->ReadBinaryData("printMediaSupported", bBuf, dwBuf);

      TMemoryStream *msBuf=new TMemoryStream;
      msBuf->Size=dwBuf;
      msBuf->Write(bBuf, dwBuf);
      msBuf->Position=0;
      msBuf->SaveToFile("Buf.dat");
      delete msBuf;          delete bBuf;
   }
   Reg->CloseKey();
   delete Reg;
}

      ComboBox1->Clear();
      char *szChar=(char*)bBuf;
      char *szZero=szChar;
      int i=0;          while(iItems->Add(szChar);
            szChar=szZero i 1;
         }
         i  ;
      }
      ComboBox1->ItemIndex=0;