Context Navigation

UApplicationInfo.pas

Last change on this file was 51, checked in by chronos, 14 years ago
Added: Unfinished installable module management.
File size: 1.3 KB

Line
1	unit UApplicationInfo;
2
3	{$MODE Delphi}
4
5	interface
6
7	uses
8	SysUtils, DateUtils;
9
10	type
11
12	{ TApplicationInfo }
13
14	TApplicationInfo = class
15	private
16	function GetVersion: string;
17	public
18	Name: string;
19	Identification: Byte;
20	MajorVersion: Byte;
21	MinorVersion: Byte;
22	BugFixVersion: Byte;
23	CompanyName: string;
24	CompanyHomePage: string;
25	HomePage: string;
26	AuthorsName: string;
27	EmailContact: string;
28	ReleaseDate: TDateTime;
29	property Version: string read GetVersion;
30	end;
31
32	var
33	ApplicationInfo: TApplicationInfo;
34
35	implementation
36
37	{ TApplicationInfo }
38
39	function TApplicationInfo.GetVersion: string;
40	begin
41	Result := IntToStr(MajorVersion) + '.' + IntToStr(MinorVersion) +
42	'.' + IntToStr(BugFixVersion);
43	end;
44
45	initialization
46
47	ApplicationInfo := TApplicationInfo.Create;
48
49	with ApplicationInfo do begin
50	Name := 'ChronIS';
51	Identification := 1;
52	ReleaseDate := EncodeDate(2012, 4, 2);
53	MajorVersion := 0;
54	MinorVersion := 1;
55	BugFixVersion := 0;
56	CompanyName := 'Chronosoft';
57	CompanyHomepage := 'http://svn.zdechov.net/trac/';
58	HomePage := 'http://svn.zdechov.net/trac/Chronis';
59	AuthorsName := 'Chronos';
60	EmailContact := 'robie@centrum.cz';
61	end;
62
63	finalization
64
65	ApplicationInfo.Free;
66
67	end.

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