Last change
on this file was 41, checked in by chronos, 5 years ago |
- Modified: Build under Lazarus 2.0.
- Modified: Used .lrj files instead of .lrt files.
- Modified: Removed TemplateGenerics package.
|
File size:
692 bytes
|
Line | |
---|
1 | program CoolDisk;
|
---|
2 |
|
---|
3 | {$mode objfpc}{$H+}
|
---|
4 |
|
---|
5 | uses
|
---|
6 | {$IFDEF UNIX}
|
---|
7 | cthreads, clocale,
|
---|
8 | {$ENDIF}
|
---|
9 | Interfaces, // this includes the LCL widgetset
|
---|
10 | Forms, tachartlazaruspkg, UProject,
|
---|
11 | UConfig, UBlockMap, UDriveScan, Common, UFormProject,
|
---|
12 | UPhysDrive, UCore, UFileStreamEx, CoolTranslator, UFormMain, UFormBenchmark,
|
---|
13 | UFormOperation;
|
---|
14 |
|
---|
15 | {$R *.res}
|
---|
16 |
|
---|
17 | begin
|
---|
18 | RequireDerivedFormResource:=True;
|
---|
19 | Application.Initialize;
|
---|
20 | Application.CreateForm(TCore, Core);
|
---|
21 | Application.CreateForm(TFormMain, FormMain);
|
---|
22 | Application.CreateForm(TFormProject, FormProject);
|
---|
23 | Application.CreateForm(TFormOperation, FormOperation);
|
---|
24 | Application.CreateForm(TFormBenchmark, FormBenchmark);
|
---|
25 | Application.Run;
|
---|
26 | end.
|
---|
27 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.