From a359afffdfc982e990633f5c0e27304d45750a54 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Tue, 23 Sep 2008 20:21:30 +0000 Subject: Uppercase/Lowercase corrections andother typos in comments, no code change git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1401 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/base/uPluginLoader.pas | 264 ++++++++++++++++++++++----------------------- 1 file changed, 132 insertions(+), 132 deletions(-) (limited to 'src/base') diff --git a/src/base/uPluginLoader.pas b/src/base/uPluginLoader.pas index d0e878c4..e0e894b1 100644 --- a/src/base/uPluginLoader.pas +++ b/src/base/uPluginLoader.pas @@ -1,9 +1,9 @@ unit UPluginLoader; {********************* UPluginLoader - Unit contains to Classes - TPluginLoader: Class Searching for and Loading the Plugins - TtehPlugins: Class that represents the Plugins in Modules chain + Unit contains two classes + TPluginLoader: Class searching for and loading the plugins + TtehPlugins: Class representing the plugins in modules chain *********************} interface @@ -21,11 +21,11 @@ uses type TPluginListItem = record Info: TUS_PluginInfo; - State: Byte; //State of this Plugin: 0 - undefined; 1 - Loaded; 2 - Inited / Running; 4 - Unloaded; 254 - Loading aborted by Plugin; 255 - Unloaded because of Error - Path: String; //Path to this Plugin - NeedsDeInit: Boolean; //If this is Inited correctly this should be true - hLib: THandle; //Handle of Loaded Libary - Procs: record //Procs offered by Plugin. Don't call this directly use wrappers of TPluginLoader + State: Byte; // State of this plugin: 0 - undefined; 1 - loaded; 2 - inited / running; 4 - unloaded; 254 - loading aborted by plugin; 255 - unloaded because of error + Path: String; // path to this plugin + NeedsDeInit: Boolean; // if this is inited correctly this should be true + hLib: THandle; // handle of loaded libary + Procs: record // procs offered by plugin. Don't call this directly use wrappers of TPluginLoader Load: Func_Load; Init: Func_Init; DeInit: Proc_DeInit; @@ -33,7 +33,7 @@ type end; {********************* TPluginLoader - Class Searches for Plugins and Manages loading and unloading + Class searches for plugins and manages loading and unloading *********************} PPluginLoader = ^TPluginLoader; TPluginLoader = class (TCoreModule) @@ -49,7 +49,7 @@ type PluginInterface: TUS_PluginInterface; Plugins: array of TPluginListItem; - //TCoreModule methods to inherit + // TCoreModule methods to inherit constructor Create; override; procedure Info(const pInfo: PModuleInfo); override; function Load: Boolean; override; @@ -57,10 +57,10 @@ type procedure DeInit; override; Destructor Destroy; override; - //New Methods - procedure BrowseDir(Path: String); //Browses the Path at _Path_ for Plugins - function PluginExists(Name: String): integer; //If Plugin Exists: Index of Plugin, else -1 - procedure AddPlugin(Filename: String);//Adds Plugin to the Array + // New methods + procedure BrowseDir(Path: String); // browses the path at _Path_ for plugins + function PluginExists(Name: String): integer; // if plugin exists: Index of plugin, else -1 + procedure AddPlugin(Filename: String); // adds plugin to the array function CallLoad(Index: Cardinal): integer; function CallInit(Index: Cardinal): integer; @@ -76,14 +76,14 @@ type {********************* TtehPlugins - Class Represents the Plugins in Module Chain. - It Calls the Plugins Procs and Funcs + Class represents the plugins in module chain. + It calls the plugins procs and funcs *********************} TtehPlugins = class (TCoreModule) private PluginLoader: PPluginLoader; public - //TCoreModule methods to inherit + // TCoreModule methods to inherit constructor Create; override; procedure Info(const pInfo: PModuleInfo); override; @@ -116,28 +116,28 @@ uses {********************* TPluginLoader - Implentation + Implementation *********************} //------------- -// function that gives some Infos about the Module to the Core +// function that gives some infos about the module to the core //------------- procedure TPluginLoader.Info(const pInfo: PModuleInfo); begin pInfo^.Name := 'TPluginLoader'; pInfo^.Version := MakeVersion(1,0,0,chr(0)); - pInfo^.Description := 'Searches for Plugins, loads and unloads them'; + pInfo^.Description := 'Searches for plugins, loads and unloads them'; end; //------------- -// Just the Constructor +// Just the constructor //------------- constructor TPluginLoader.Create; begin inherited; - //Init PluginInterface - //Using Methods from UPluginInterface + // Init PluginInterface + // Using methods from UPluginInterface PluginInterface.CreateHookableEvent := CreateHookableEvent; PluginInterface.DestroyHookableEvent := DestroyHookableEvent; PluginInterface.NotivyEventHooks := NotivyEventHooks; @@ -150,80 +150,80 @@ begin PluginInterface.CallService := CallService; PluginInterface.ServiceExists := ServiceExists; - //UnSet Private Var + // UnSet private var LoadingProcessFinished := False; end; //------------- -//Is Called on Loading. -//In this Method only Events and Services should be created -//to offer them to other Modules or Plugins during the Init process -//If False is Returned this will cause a Forced Exit +// Is called on loading. +// In this method only events and services should be created +// to offer them to other modules or plugins during the init process +// if false is returned this will cause a forced exit //------------- function TPluginLoader.Load: Boolean; begin Result := True; try - //Start Searching for Plugins + // Start searching for plugins BrowseDir(PluginPath); except Result := False; - Core.ReportError(integer(PChar('Error Browsing and Loading.')), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Error browsing and loading.')), PChar('TPluginLoader')); end; end; //------------- -//Is Called on Init Process -//In this Method you can Hook some Events and Create + Init -//your Classes, Variables etc. -//If False is Returned this will cause a Forced Exit +// Is called on init process +// In this method you can hook some events and create + init +// your classes, variables etc. +// If false is returned this will cause a forced exit //------------- function TPluginLoader.Init: Boolean; begin - //Just set Prvate Var to true. + // Just set private var to true. LoadingProcessFinished := True; Result := True; end; //------------- -//Is Called if this Module has been Inited and there is a Exit. -//Deinit is in backwards Initing Order +// Is called if this module has been inited and there is a exit. +// Deinit is in backwards initing order //------------- procedure TPluginLoader.DeInit; var I: integer; begin - //Force DeInit - //If some Plugins aren't DeInited for some Reason o0 + // Force deinit + // if some plugins aren't deinited for some reason o0 for I := 0 to High(Plugins) do begin if (Plugins[I].State < 4) then FreePlugin(I); end; - //Nothing to do here. Core will remove the Hooks + // Nothing to do here. Core will remove the hooks end; //------------- -//Is Called if this Module will be unloaded and has been created -//Should be used to Free Memory +// Is called if this module will be unloaded and has been created +// Should be used to free memory //------------- Destructor TPluginLoader.Destroy; begin - //Just save some Memory if it wasn't done now.. + // Just save some memory if it wasn't done now.. SetLength(Plugins, 0); inherited; end; //-------------- -// Browses the Path at _Path_ for Plugins +// Browses the path at _Path_ for plugins //-------------- procedure TPluginLoader.BrowseDir(Path: String); var SR: TSearchRec; begin - //Search for other Dirs to Browse + // Search for other dirs to browse if FindFirst(Path + '*', faDirectory, SR) = 0 then begin repeat if (SR.Name <> '.') and (SR.Name <> '..') then @@ -232,7 +232,7 @@ begin end; FindClose(SR); - //Search for Plugins at Path + // Search for plugins at path if FindFirst(Path + '*' + PluginFileExtension, 0, SR) = 0 then begin repeat @@ -243,7 +243,7 @@ begin end; //-------------- -// If Plugin Exists: Index of Plugin, else -1 +// If plugin exists: Index of plugin, else -1 //-------------- function TPluginLoader.PluginExists(Name: String): integer; var @@ -263,7 +263,7 @@ begin end; //-------------- -// Adds Plugin to the Array +// Adds plugin to the array //-------------- procedure TPluginLoader.AddPlugin(Filename: String); var @@ -276,20 +276,20 @@ begin begin //Load Libary hLib := LoadLibrary(PChar(Filename)); if (hLib <> 0) then - begin //Try to get Address of the Info Proc + begin // Try to get address of the info proc PInfo := GetProcAddress (hLib, PChar('USPlugin_Info')); if (@PInfo <> nil) then begin Info.cbSize := SizeOf(TUS_PluginInfo); - try //Call Info Proc + try // Call info proc PInfo(@Info); except Info.Name := ''; - Core.ReportError(integer(PChar('Error getting Plugin Info: ' + Filename)), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Error getting plugin info: ' + Filename)), PChar('TPluginLoader')); end; - //Is Name set ? + // Is name set ? if (Trim(Info.Name) <> '') then begin PluginID := PluginExists(Info.Name); @@ -299,18 +299,18 @@ begin if (PluginID = -1) then begin - //Add new item to array + // Add new item to array PluginID := Length(Plugins); SetLength(Plugins, PluginID + 1); - //Fill with Info: + // Fill with info: Plugins[PluginID].Info := Info; Plugins[PluginID].State := 0; Plugins[PluginID].Path := Filename; Plugins[PluginID].NeedsDeInit := False; Plugins[PluginID].hLib := hLib; - //Try to get Procs + // Try to get procs Plugins[PluginID].Procs.Load := GetProcAddress (hLib, PChar('USPlugin_Load')); Plugins[PluginID].Procs.Init := GetProcAddress (hLib, PChar('USPlugin_Init')); Plugins[PluginID].Procs.DeInit := GetProcAddress (hLib, PChar('USPlugin_DeInit')); @@ -319,10 +319,10 @@ begin begin Plugins[PluginID].State := 255; FreeLibrary(hLib); - Core.ReportError(integer(PChar('Can''t get Plugin Procs from Libary: "' + Info.Name + '" ' + Filename)), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Can''t get plugin procs from libary: "' + Info.Name + '" ' + Filename)), PChar('TPluginLoader')); end; - //Emulate loading process if this Plugin is loaded to late + // Emulate loading process if this plugin is loaded too late if (LoadingProcessFinished) then begin CallLoad(PluginID); @@ -332,20 +332,20 @@ begin else if (LoadingProcessFinished = False) then begin if (Plugins[PluginID].Info.Version < Info.Version) then - begin //Found newer Version of this Plugin - Core.ReportDebug(integer(PChar('Found a newer Version of Plugin: ' + String(Info.Name))), PChar('TPluginLoader')); + begin // Found newer version of this plugin + Core.ReportDebug(integer(PChar('Found a newer version of plugin: ' + String(Info.Name))), PChar('TPluginLoader')); - //Unload Old Plugin + // Unload old plugin UnloadPlugin(PluginID, nil); - //Fill with new Info + // Fill with new info Plugins[PluginID].Info := Info; Plugins[PluginID].State := 0; Plugins[PluginID].Path := Filename; Plugins[PluginID].NeedsDeInit := False; Plugins[PluginID].hLib := hLib; - //Try to get Procs + // Try to get procs Plugins[PluginID].Procs.Load := GetProcAddress (hLib, PChar('USPlugin_Load')); Plugins[PluginID].Procs.Init := GetProcAddress (hLib, PChar('USPlugin_Init')); Plugins[PluginID].Procs.DeInit := GetProcAddress (hLib, PChar('USPlugin_DeInit')); @@ -354,18 +354,18 @@ begin begin FreeLibrary(hLib); Plugins[PluginID].State := 255; - Core.ReportError(integer(PChar('Can''t get Plugin Procs from Libary: "' + Info.Name + '" ' + Filename)), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Can''t get plugin procs from libary: "' + Info.Name + '" ' + Filename)), PChar('TPluginLoader')); end; end else - begin //Newer Version already loaded + begin // Newer Version already loaded FreeLibrary(hLib); end; end else begin FreeLibrary(hLib); - Core.ReportError(integer(PChar('Plugin with this Name already exists: ' + String(Info.Name))), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Plugin with this name already exists: ' + String(Info.Name))), PChar('TPluginLoader')); end; end else @@ -377,16 +377,16 @@ begin else begin FreeLibrary(hLib); - Core.ReportError(integer(PChar('Can''t find Info procedure: ' + Filename)), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Can''t find info procedure: ' + Filename)), PChar('TPluginLoader')); end; end else - Core.ReportError(integer(PChar('Can''t load Plugin Libary: ' + Filename)), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Can''t load plugin libary: ' + Filename)), PChar('TPluginLoader')); end; end; //-------------- -// Calls Load Func of Plugin with the given Index +// Calls load func of plugin with the given index //-------------- function TPluginLoader.CallLoad(Index: Cardinal): integer; begin @@ -407,14 +407,14 @@ begin begin FreePlugin(Index); Plugins[Index].State := 255; - Core.ReportError(integer(PChar('Error calling Load function from Plugin: ' + String(Plugins[Index].Info.Name))), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Error calling load function from plugin: ' + String(Plugins[Index].Info.Name))), PChar('TPluginLoader')); end; end; end; end; //-------------- -// Calls Init Func of Plugin with the given Index +// Calls init func of plugin with the given index //-------------- function TPluginLoader.CallInit(Index: Cardinal): integer; begin @@ -438,14 +438,14 @@ begin begin FreePlugin(Index); Plugins[Index].State := 255; - Core.ReportError(integer(PChar('Error calling Init function from Plugin: ' + String(Plugins[Index].Info.Name))), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Error calling init function from plugin: ' + String(Plugins[Index].Info.Name))), PChar('TPluginLoader')); end; end; end; end; //-------------- -// Calls DeInit Proc of Plugin with the given Index +// Calls deinit proc of plugin with the given index //-------------- procedure TPluginLoader.CallDeInit(Index: Cardinal); begin @@ -460,7 +460,7 @@ begin End; - //Don't forget to remove Services and Subscriptions by this Plugin + // Don't forget to remove services and subscriptions by this plugin Core.Hooks.DelbyOwner(-1 - Index); FreePlugin(Index); @@ -469,7 +469,7 @@ begin end; //-------------- -// Frees all Plugin Sources (Procs and Handles) - Helper for Deiniting Functions +// Frees all plugin sources (procs and handles) - helper for deiniting functions //-------------- procedure TPluginLoader.FreePlugin(Index: Cardinal); begin @@ -485,7 +485,7 @@ end; //-------------- -// wParam PChar(PluginName/PluginPath) | wParam (if lParam = nil) ID of the Plugin +// wParam PChar(PluginName/PluginPath) | wParam (if lParam = nil) ID of the plugin //-------------- function TPluginLoader.LoadPlugin(wParam: TwParam; lParam: TlParam): integer; var @@ -494,7 +494,7 @@ var begin Result := -1; sFile := ''; - //lParam is ID + // lParam is ID if (lParam = nil) then begin Index := wParam; @@ -505,7 +505,7 @@ begin sFile := String(PChar(lParam)); Index := PluginExists(sFile); if (Index < 0) And FileExists(sFile) then - begin //Is Filename + begin // Is filename AddPlugin(sFile); Result := Plugins[High(Plugins)].State; end; @@ -523,7 +523,7 @@ begin end; //-------------- -// wParam PChar(PluginName/PluginPath) | wParam (if lParam = nil) ID of the Plugin +// wParam PChar(PluginName/PluginPath) | wParam (if lParam = nil) ID of the plugin //-------------- function TPluginLoader.UnloadPlugin(wParam: TwParam; lParam: TlParam): integer; var @@ -531,13 +531,13 @@ var sName: String; begin Result := -1; - //lParam is ID + // lParam is ID if (lParam = nil) then begin Index := wParam; end else - begin //wParam is PChar + begin // wParam is PChar try sName := String(PChar(lParam)); Index := PluginExists(sName); @@ -552,14 +552,14 @@ begin end; //-------------- -// if wParam = -1 then (if lParam = nil then get length of Moduleinfo Array. if lparam <> nil then write array of TUS_PluginInfo to address at lparam) else (Get PluginInfo of Plugin with Index(wParam) to Address at lParam) +// if wParam = -1 then (if lParam = nil then get length of moduleinfo array. if lparam <> nil then write array of TUS_PluginInfo to address at lparam) else (Get PluginInfo of plugin with Index(wParam) to address at lParam) //-------------- function TPluginLoader.GetPluginInfo(wParam: TwParam; lParam: TlParam): integer; var I: integer; begin Result := 0; if (wParam > 0) then - begin //Get Info of 1 Plugin + begin // Get info of 1 plugin if (lParam <> nil) and (wParam < Length(Plugins)) then begin try @@ -571,7 +571,7 @@ begin end; end else if (lParam = nil) then - begin //Get Length of Plugin (Info) Array + begin // Get length of plugin (info) array Result := Length(Plugins); end else //Write PluginInfo Array to Address in lParam @@ -588,31 +588,31 @@ begin end; //-------------- -// if wParam = -1 then (if lParam = nil then get length of Plugin State Array. if lparam <> nil then write array of Byte to address at lparam) else (Return State of Plugin with Index(wParam)) +// if wParam = -1 then (if lParam = nil then get length of plugin state array. if lparam <> nil then write array of Byte to address at lparam) else (return state of plugin with index(wParam)) //-------------- function TPluginLoader.GetPluginState(wParam: TwParam; lParam: TlParam): integer; var I: integer; begin Result := -1; if (wParam > 0) then - begin //Get State of 1 Plugin + begin // Get state of 1 plugin if (wParam < Length(Plugins)) then begin Result := Plugins[wParam].State; end; end else if (lParam = nil) then - begin //Get Length of Plugin (Info) Array + begin // Get length of plugin (info) array Result := Length(Plugins); end - else //Write PluginInfo Array to Address in lParam + else // Write plugininfo array to address in lParam begin try for I := 0 to high(Plugins) do Byte(Pointer(integer(lParam) + I)^) := Plugins[I].State; Result := Length(Plugins); except - Core.ReportError(integer(PChar('Could not write PluginState Array')), PChar('TPluginLoader')); + Core.ReportError(integer(PChar('Could not write pluginstate array')), PChar('TPluginLoader')); End; end; end; @@ -620,11 +620,11 @@ end; {********************* TtehPlugins - Implentation + Implementation *********************} //------------- -// function that gives some Infos about the Module to the Core +// function that gives some infos about the module to the core //------------- procedure TtehPlugins.Info(const pInfo: PModuleInfo); begin @@ -634,7 +634,7 @@ begin end; //------------- -// Just the Constructor +// Just the constructor //------------- constructor TtehPlugins.Create; begin @@ -643,130 +643,130 @@ begin end; //------------- -//Is Called on Loading. -//In this Method only Events and Services should be created -//to offer them to other Modules or Plugins during the Init process -//If False is Returned this will cause a Forced Exit +// Is called on loading. +// In this method only events and services should be created +// to offer them to other modules or plugins during the init process +// if false is returned this will cause a forced exit //------------- function TtehPlugins.Load: Boolean; var - i: integer; //Counter + i: integer; // Counter CurExecutedBackup: integer; //backup of Core.CurExecuted Attribute begin - //Get Pointer to PluginLoader + // Get pointer to pluginloader PluginLoader := PPluginLoader(Core.GetModulebyName('TPluginLoader')); if (PluginLoader = nil) then begin Result := false; - Core.ReportError(integer(PChar('Could not get Pointer to PluginLoader')), PChar('TtehPlugins')); + Core.ReportError(integer(PChar('Could not get pointer to pluginLoader')), PChar('TtehPlugins')); end else begin Result := true; - //Backup CurExecuted + // Backup curexecuted CurExecutedBackup := Core.CurExecuted; - //Start Loading the Plugins + // Start loading the plugins for i := 0 to High(PluginLoader.Plugins) do begin Core.CurExecuted := -1 - i; try - //Unload Plugin if not correctly Executed + // Unload plugin if not correctly executed if (PluginLoader.CallLoad(i) <> 0) then begin PluginLoader.CallDeInit(i); - PluginLoader.Plugins[i].State := 254; //Plugin asks for unload - Core.ReportDebug(integer(PChar('Plugin Selfabort during loading process: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); + PluginLoader.Plugins[i].State := 254; // Plugin asks for unload + Core.ReportDebug(integer(PChar('Plugin selfabort during loading process: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); end else begin - Core.ReportDebug(integer(PChar('Plugin loaded succesful: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); + Core.ReportDebug(integer(PChar('Plugin loaded succesfully: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); end; except - //Plugin could not be loaded. - // => Show Error Message, then ShutDown Plugin + // Plugin could not be loaded. + // => Show error message, then shutdown plugin on E: Exception do begin PluginLoader.CallDeInit(i); - PluginLoader.Plugins[i].State := 255; //Plugin causes Error - Core.ReportError(integer(PChar('Plugin causes Error during loading process: ' + PluginLoader.Plugins[i].Info.Name + ', ErrorMsg: "' + E.Message + '"')), PChar('TtehPlugins')); + PluginLoader.Plugins[i].State := 255; // Plugin causes error + Core.ReportError(integer(PChar('Plugin causes error during loading process: ' + PluginLoader.Plugins[i].Info.Name + ', ErrorMsg: "' + E.Message + '"')), PChar('TtehPlugins')); end; end; end; - //Reset CurExecuted + // Reset CurExecuted Core.CurExecuted := CurExecutedBackup; end; end; //------------- -//Is Called on Init Process -//In this Method you can Hook some Events and Create + Init -//your Classes, Variables etc. -//If False is Returned this will cause a Forced Exit +// Is called on init process +// in this method you can hook some events and create + init +// your classes, variables etc. +// if false is returned this will cause a forced exit //------------- function TtehPlugins.Init: Boolean; var - i: integer; //Counter - CurExecutedBackup: integer; //backup of Core.CurExecuted Attribute + i: integer; // Counter + CurExecutedBackup: integer; // backup of Core.CurExecuted attribute begin Result := true; - //Backup CurExecuted + // Backup CurExecuted CurExecutedBackup := Core.CurExecuted; - //Start Loading the Plugins + // Start loading the plugins for i := 0 to High(PluginLoader.Plugins) do try Core.CurExecuted := -1 - i; - //Unload Plugin if not correctly Executed + // Unload plugin if not correctly executed if (PluginLoader.CallInit(i) <> 0) then begin PluginLoader.CallDeInit(i); PluginLoader.Plugins[i].State := 254; //Plugin asks for unload - Core.ReportDebug(integer(PChar('Plugin Selfabort during init process: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); + Core.ReportDebug(integer(PChar('Plugin selfabort during init process: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); end else - Core.ReportDebug(integer(PChar('Plugin inited succesful: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); + Core.ReportDebug(integer(PChar('Plugin inited succesfully: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); except - //Plugin could not be loaded. - // => Show Error Message, then ShutDown Plugin + // Plugin could not be loaded. + // => Show error message, then shut down plugin PluginLoader.CallDeInit(i); PluginLoader.Plugins[i].State := 255; //Plugin causes Error - Core.ReportError(integer(PChar('Plugin causes Error during init process: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); + Core.ReportError(integer(PChar('Plugin causes error during init process: ' + String(PluginLoader.Plugins[i].Info.Name))), PChar('TtehPlugins')); end; - //Reset CurExecuted + // Reset CurExecuted Core.CurExecuted := CurExecutedBackup; end; //------------- -//Is Called if this Module has been Inited and there is a Exit. -//Deinit is in backwards Initing Order +// Is called if this module has been inited and there is a exit. +// Deinit is in backwards initing order //------------- procedure TtehPlugins.DeInit; var - i: integer; //Counter - CurExecutedBackup: integer; //backup of Core.CurExecuted Attribute + i: integer; // Counter + CurExecutedBackup: integer; // backup of Core.CurExecuted attribute begin - //Backup CurExecuted + // Backup CurExecuted CurExecutedBackup := Core.CurExecuted; - //Start Loop + // Start loop for i := 0 to High(PluginLoader.Plugins) do begin try - //DeInit Plugin + // DeInit plugin PluginLoader.CallDeInit(i); except end; end; - //Reset CurExecuted + // Reset CurExecuted Core.CurExecuted := CurExecutedBackup; end; -- cgit v1.2.3