CB6中读取OUTLOOK中的地址簿

CB6中读取OUTLOOK中的地址簿(10)                                                                 }
                }
                //ListEmail->Lines->Add(strTemp);

                lpWABObject->FreeBuffer(lpRow);
                }
                lpWABObject->FreeBuffer(lpRows);
                }
                }
                //FreeLibrary(hinstLib);（装载和释放 dll 文件的地方改成在主程序执行之前装载，结束的时候释放）
                }

                }
                catch(...)
                {
                        MessageBox(Handle,"没有找到地址薄!","提示信息",MB_OK);
                }
        }