Context Navigation

URegistredModules.pas

Last change on this file was 20, checked in by chronos, 13 years ago
Přidáno: Modul, který bude obsahovat implementaci komunikace s přístupovými terminály firmy Chiyu.
File size: 1008 bytes

Line
1	unit URegistredModules;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils, UModularSystem;
9
10	procedure RegisterModules(ModuleManager: TModuleManager);
11	procedure UnregisterModules(ModuleManager: TModuleManager);
12
13
14	implementation
15
16	uses
17	UModuleAttendance, UModuleChiyuAccessControlers;
18
19	procedure RegisterModules(ModuleManager: TModuleManager);
20	begin
21	UnregisterModules(ModuleManager);
22	with ModuleManager do
23	try
24	Modules.BeginUpdate;
25	RegisterModule(TModuleAttendance.Create(nil));
26	RegisterModule(TModuleChiyuAccessControlers.Create(nil));
27	finally
28	Modules.EndUpdate;
29	end;
30	end;
31
32	procedure UnregisterModules(ModuleManager: TModuleManager);
33	var
34	I: Integer;
35	Module: TModule;
36	begin
37	with ModuleManager do
38	try
39	Modules.BeginUpdate;
40	for I := Modules.Count - 1 downto 0 do begin
41	Module := TModule(Modules[I]);
42	UnregisterModule(Module);
43	Module.Free;
44	end;
45	finally
46	Modules.EndUpdate;
47	end;
48	end;
49
50	end.
51

Note: See TracBrowser for help on using the repository browser.