Example #1
0
//---------------------------------------------------------------------------
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);
}
Example #2
0
int sword__ModList_iterator_next(xsd__int hmmi, xsd__int &noop) {
	ModList_iterator_next(hmmi);
	return SOAP_OK;
}