Added Hook and Service Class for new Plugin System to Trunc

Added Core and CoreModule. That maybe will be used for new Core management.
Core needs many code to write

Some Info to Plugin SDK added

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@497 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 6 insertions, 9 deletions

diff --git a/Game/Code/UltraStar.dpr b/Game/Code/UltraStar.dpr
index b9fa0530..b154c653 100644
--- a/Game/Code/UltraStar.dpr
+++ b/Game/Code/UltraStar.dpr
@@ -1,8 +1,5 @@
 program UltraStar;

 

-{$DEFINE TRANSLATE}

-{$DEFINE DEBUG} //Remove b4 release

-

 {$R 'UltraStar.res' 'UltraStar.rc'}

 {$I switches.inc}

 

@@ -99,11 +96,11 @@ uses
   USingNotes in 'Classes\USingNotes.pas',

 

   //New Plugin and Core Management

-  {ULists in 'Classes\ULists.pas',      //maybe drop this

-  UHooks in 'Classes\UHooks.pas',       //80 % - Whiteshark is about to work on this

-  UServices in 'Classes\UServices.pas', //20 % - Whiteshark is about to work on this

-  UCore in 'Classes\UCore.pas',

-  UCoreModule in 'Classes\UCoreModule.pas', }

+  UModules in 'Classes\UModules.pas',      //This Unit contains a const with the Modules to Load

+  UHooks in 'Classes\UHooks.pas',          //Class for Hook Management     //Write Freeing  Methods for Both

+  UServices in 'Classes\UServices.pas',    //95% - One Hack to remove ;)

+  UCore in 'Classes\UCore.pas',            //30 % - Many Classes needs Rewriting or Manipulation

+  UCoreModule in 'Classes\UCoreModule.pas',

   UPluginInterface in 'Classes\UPluginInterface.pas', //Some changes to work with unwriten classes, need to be done

 

   //------------------------------

@@ -191,7 +188,7 @@ begin
         Inc(I);

         hWnd := FindWindow(nil, PChar(WndTitle + ' Instance ' + InttoStr(I)));

       until (hWnd = 0);

-

+      MessageBox(

       WndTitle := WndTitle + ' Instance ' + InttoStr(I);

     end

     else