1 files changed, 37 insertions, 0 deletions
diff --git a/bindings/bcppmake/MainTest.cpp b/bindings/bcppmake/MainTest.cpp
new file mode 100644
index 0000000..46c0b65
--- /dev/null
+++ b/bindings/bcppmake/MainTest.cpp
@@ -0,0 +1,37 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "MainTest.h"
+extern "C" {
+#include <flatapi.h>
+}
+//using namespace sword;
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+TForm1 *Form1;
+//---------------------------------------------------------------------------
+__fastcall TForm1::TForm1(TComponent* Owner)
+	: TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+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);
+}
+//---------------------------------------------------------------------------