Context Navigation

UModuleUser.pas

Last change on this file was 53, checked in by chronos, 14 years ago
Opraveno: Aktualizace seznamu modulů do databáze a použití příznaku modulů "Instalován" pro zjištění, zda vytvářet znova strukturu.
File size: 727 bytes

Line
1	unit UModuleUser;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils, UPDClient, UChronisModule;
9
10	type
11
12	{ TModuleUser }
13
14	TModuleUser = class(TChronisModule)
15	public
16	procedure Install; override;
17	procedure Uninstall; override;
18	constructor Create; override;
19	destructor Destroy; override;
20	end;
21
22
23	implementation
24
25	{ TModuleUser }
26
27	procedure TModuleUser.Install;
28	begin
29	inherited Install;
30	end;
31
32	procedure TModuleUser.Uninstall;
33	begin
34	inherited Uninstall;
35	end;
36
37	constructor TModuleUser.Create;
38	begin
39	SysName := 'User';
40	Name := 'User';
41	Version := '1.0';
42	inherited Create;
43	end;
44
45	destructor TModuleUser.Destroy;
46	begin
47	inherited Destroy;
48	end;
49
50	end.
51

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