//--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { SWHANDLE mgr = SWMgr_new(); SWHANDLE it = SWMgr_getModulesIterator(mgr); SWHANDLE module = 0; String modlist; do { module = ModList_iterator_val(it); if (module) { modlist += SWModule_getName(module) + (String)"\r\n"; ModList_iterator_next(it); } } while (module); Memo1->Text = modlist; SWMgr_delete(mgr); }
int sword__SWMgr_getModulesIterator(xsd__int hmgr, xsd__int &hmodIterator) { hmodIterator = SWMgr_getModulesIterator(hmgr); return SOAP_OK; }