-
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathlara.dpr
78 lines (68 loc) · 2.02 KB
/
lara.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
program lara;
{$R *.dres}
{$IFDEF DEBUG}
{$INCLUDE FastMM4Options.inc}
{$ENDIF}
uses
{$IFDEF DEBUG}
FastMM4,
{$ENDIF }
Forms,
Windows,
main in 'main.pas' {frmAMP},
Splash in 'Splash.pas' {FormSplash},
inifiles,
sysutils,
frmVirtualHost in 'frmVirtualHost.pas' {frmVirtualHost1},
DirectoryMonitor in 'DirectoryMonitor.pas',
Vcl.Themes,
Vcl.Styles,
projects in 'projects.pas',
functions in 'functions.pas',
Settings in 'Settings.pas',
frmEditors in 'frmEditors.pas' {wndEditors},
UTransition in 'UTransition.pas',
phpini in 'phpini.pas',
frmphpsettings in 'frmphpsettings.pas' {Form1},
httpd in 'httpd.pas',
frmLogViewer in 'frmLogViewer.pas' {formLogViewer},
composer in 'composer.pas',
env in 'env.pas',
peutils in 'peutils.pas',
processhandler in 'processhandler.pas',
DataTransferManagerHelper in 'DataTransferManagerHelper.pas',
php in 'php.pas',
laraAppsHelper in 'laraAppsHelper.pas';
{$R *.res}
var
RvHandle: HWND;
ini: tinifile;
begin
{$IFDEF DEBUG}
// ReportMemoryLeaksOnShutdown := True;
{$ENDIF }
RvHandle:=FindWindow('AMPortable',nil);
if RvHandle > 0 then exit;
Application.Initialize;
//FreeLocalizer.AutoTranslate:=True;
//FreeLocalizer.LanguageFile:='AMPortable.english.lng';
ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
try
if ini.ReadBool('Settings','Splash',True) then
with TFormSplash.Create(Application) do
Execute;
finally
ini.Free;
end;
TStyleManager.TrySetStyle('Laravel Dark 11');
Application.Title := 'LaraDev';
// Application.MainFormOnTaskBar:=False;
// Application.ShowMainForm:=False;
Application.CreateForm(TfrmAMP, frmAMP);
Application.CreateForm(TfrmVirtualHost1, frmVirtualHost1);
Application.CreateForm(TwndEditors, wndEditors);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TformLogViewer, formLogViewer);
// Application.CreateForm(TForm1, Form1);
Application.Run;
end.