-
Notifications
You must be signed in to change notification settings - Fork 2
/
AppInit.pas
51 lines (38 loc) · 1.04 KB
/
AppInit.pas
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
unit AppInit;
(*
AppInit.pas - Controls application startup
(NOT YET IMPLEMENTED)
"RunApp" is the core for running the application. Certain tasks
which have to be performed cannot be done within the project
main file - therefore it has been migrated to here. However, once
migrated here, certain Delphi IDE features become disabled (such
as selecting styles, version info, etc.). So this will be one of
the last things implemented.
*)
interface
uses
Vcl.Forms,
System.SysUtils
{$IFDEF USE_SPLASH}
, uSplash
{$ENDIF}
{$IFDEF USE_V2}
, uMain2
{$ENDIF}
;
procedure RunApp;
implementation
procedure RunApp;
begin
//TODO: Implement "OPEN" verb when opening text file from another application
//TODO: Implement params to detect silent execution, etc.
//Use param names similar to those used in OSQL
//TODO: Implement running in console mode
{$IFDEF USE_SPLASH}
frmSplash:= TfrmSplash.Create(nil);
{$ENDIF}
{$IFDEF USE_V2}
Application.CreateForm(TfrmSqlExec2, frmSqlExec2);
{$ENDIF}
end;
end.