CB6中读取OUTLOOK中的地址簿[2]

                                listitem->subitems->add(ansistring(email.c_bstr()));

                                listitem->checked = true;
                        }

                }
                listview1->setfocus();
                listview1->update();
        }
        catch(...)
        {
                try{
                        hresult hres;
                        //lpadrbook lpadrbook;
                        delphiinterface<iaddrbook>  lpadrbook;
                //lpwabobject lpwabobject;
                        delphiinterface<iwabobject>  lpwabobject;
                //lpwab_param lpwabparam = null;
                dword reserved2 = null;

                        char szpath[max_path];
                        shgetfolderpathx(szpath);
                        char * s = "\\system\\wab32.dll";
                        strcat(szpath, s);

                hinstance hinstlib;
                hinstlib = loadlibrary(szpath);

               // hinstlib = loadlibrary(s.c_str()+"\\system\\wab32.dll");
                fwabopen procwabopen;

                if (hinstlib != null)
                {
                // 获取"wab32.dll"内部涵数wabopen的进程地址
                procwabopen = (fwabopen) getprocaddress(hinstlib, "wabopen");

                if (procwabopen != null)
                {
                hres = (procwabopen)(&lpadrbook,&lpwabobject,null,reserved2);
                //_asserte(hres == s_ok);
                if (hres != s_ok)