nearly finished Cores loading procs

Add PluginLoader Unit to implent new PluginLoader
Reordered Delphi .dpr uses clausel

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

3 files changed, 16 insertions, 2 deletions

diff --git a/Modis/SDK/Hooks.txt b/Modis/SDK/Hooks.txt
index 32237694..f63773e0 100644
--- a/Modis/SDK/Hooks.txt
+++ b/Modis/SDK/Hooks.txt
@@ -7,6 +7,7 @@ Core:
 --------------------

 Core/LoadingFinished <- Hook is called after all Modules and Plugins are loaded completely, before MainLoop

 Core/MainLoop        <- Hook is called once in MainLoop before Drawing

+Core/Translate       <- Hook is called when Strings should be translated. If this is Retranslating lParam is Non Zero

 Core/LoadTextures    <- Hook is called when Textures should be Loaded. This will be called in Ogl Thread. If Textures are Reloaded (e.g. on Display ReInit) LParam is non Zero.

 Core/ExitQuery       <- Hook is called if someone querys an exit. (e.g. X is pressed). Not called on ForcedExit. If Chain is breaked the exit will be aborted.

 Core/Exit            <- Hook is called before Module a. Plugin unload.

diff --git a/Modis/SDK/Services.txt b/Modis/SDK/Services.txt
index ae8f4097..7ed4be0e 100644
--- a/Modis/SDK/Services.txt
+++ b/Modis/SDK/Services.txt
@@ -1,4 +1,4 @@
-Ultrastar Deluxe Hook List

+Ultrastar Deluxe Service List

 -----------------------------------

 Here you can find the Services the Core offers to you:

 

@@ -6,4 +6,8 @@ Here you can find the Services the Core offers to you:
 Core:

 --------------------

 Core/ReportError    <- Calls the 'Core/NewError' Chain. wParam: Pchar(Message), lParam: PChar(Reportername)

-Core/ReportDebug    <- Calls the 'Core/NewDebugInfo' Chain. wParam: Pchar(Message), lParam: PChar(Reportername)
\ No newline at end of file
+Core/ReportDebug    <- Calls the 'Core/NewDebugInfo' Chain. wParam: Pchar(Message), lParam: PChar(Reportername)

+Core/ShowMessage    <- Shows a Message Dialog. (lParam: PChar Text, wParam: Symbol)

+Core/Retranslate    <- Calls Translate Hook

+Core/ReloadTextures <- Calls LoadTextures Hook

+Core/GetModuleInfo  <- If lParam = nil then get length of Moduleinfo Array. If lparam <> nil then write array of TModuleInfo to address at lparam
\ No newline at end of file
diff --git a/Modis/SDK/UPluginDefs.pas b/Modis/SDK/UPluginDefs.pas
index 5a16d807..8b964cc2 100644
--- a/Modis/SDK/UPluginDefs.pas
+++ b/Modis/SDK/UPluginDefs.pas
@@ -100,6 +100,15 @@ type
     ServiceExists: Function (ServiceName: PChar): Integer; stdcall;

   end;

 

+  //TModuleInfo: Info about Modules

+  PModuleInfo = ^TModuleInfo;

+  TModuleInfo = record

+    Name:         String;

+    Version:      LongWord;

+    Description:  String;

+  end;

+  AModuleInfo = array of TModuleInfo;

+

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

 // Some Default Constants

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