//---------------------------------------------------------------------------
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__ModList_iterator_next(xsd__int hmmi, xsd__int &noop) {
ModList_iterator_next(hmmi);
return SOAP_OK;
}