diff options
author | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-10 17:50:05 +0000 |
---|---|---|
committer | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-10 17:50:05 +0000 |
commit | 621bfb05407a169f6511f5b115d0622e5ec8bdd5 (patch) | |
tree | 7edbf5de48b2914978b8575030c2d0a72dcf6011 /Game/Code/UltraStar.dpr | |
parent | e64a9f34e7c08377990a8b3f11c24e9e9c5b8cc3 (diff) | |
download | usdx-621bfb05407a169f6511f5b115d0622e5ec8bdd5.tar.gz usdx-621bfb05407a169f6511f5b115d0622e5ec8bdd5.tar.xz usdx-621bfb05407a169f6511f5b115d0622e5ec8bdd5.zip |
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
Diffstat (limited to 'Game/Code/UltraStar.dpr')
-rw-r--r-- | Game/Code/UltraStar.dpr | 15 |
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
|