init wcore stuff in lcoreinit, eliminating dependency on messageloop

git-svn-id: file:///svnroot/lcore/trunk@92 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/lcorewsaasyncselect.pas b/lcorewsaasyncselect.pas
index 622c92ea82ad1bec51d389bc89e119c1baf702cb..cde709bcd58c4cf2e1ccf9edd9fc55d4af2600d6 100755 (executable)
--- a/lcorewsaasyncselect.pas
+++ b/lcorewsaasyncselect.pas
@@ -226,6 +226,7 @@ begin
   WSAStartup(2, GInitData);\r
   absoloutemaxs := maxlongint;\r
 \r
   WSAStartup(2, GInitData);\r
   absoloutemaxs := maxlongint;\r
 \r

+  wcoreinit;\r

 \r
   inited := true;\r
 end;\r
 \r
   inited := true;\r
 end;\r

diff --git a/wcore.pas b/wcore.pas
index 1c063ada17a45f026c1757741d1259fbd5331e53..e79fc1029af637577bc931e300bddca0ab1298d0 100755 (executable)
--- a/wcore.pas
+++ b/wcore.pas
@@ -58,6 +58,7 @@ procedure addtask(ahandler:ttaskevent;aobj:tobject;awparam,alparam:longint);
 procedure disconnecttasks(aobj:tobject);\r
 procedure exitmessageloop;\r
 procedure processmessages;\r
 procedure disconnecttasks(aobj:tobject);\r
 procedure exitmessageloop;\r
 procedure processmessages;\r

+procedure wcoreinit;\r

 \r
 var\r
   onshutdown:procedure(s:ansistring);\r
 \r
 var\r
   onshutdown:procedure(s:ansistring);\r


@@ -312,11 +313,8 @@ var
                                  lpszMenuName  : nil;\r
                                  lpszClassName : 'wcoreClass');\r
 \r
                                  lpszMenuName  : nil;\r
                                  lpszClassName : 'wcoreClass');\r
 \r

-procedure messageloop;\r
-var\r
-  MsgRec : TMsg;\r
+procedure wcoreinit;\r

 begin\r
 begin\r

-\r

   if Windows.RegisterClass(MyWindowClass) = 0 then halt;\r
   //writeln('about to create wcore handle, hinstance=',hinstance);\r
   hwndwcore := CreateWindowEx(WS_EX_TOOLWINDOW,\r
   if Windows.RegisterClass(MyWindowClass) = 0 then halt;\r
   //writeln('about to create wcore handle, hinstance=',hinstance);\r
   hwndwcore := CreateWindowEx(WS_EX_TOOLWINDOW,\r


@@ -339,6 +337,14 @@ begin
   {$endif}\r
 \r
 \r
   {$endif}\r
 \r
 \r

+end;\r
+\r
+procedure messageloop;\r
+var\r
+  MsgRec : TMsg;\r
+\r
+begin\r
+\r

   while GetMessage(MsgRec, 0, 0, 0) do begin\r
     TranslateMessage(MsgRec);\r
     DispatchMessage(MsgRec);\r
   while GetMessage(MsgRec, 0, 0, 0) do begin\r
     TranslateMessage(MsgRec);\r
     DispatchMessage(MsgRec);\r