-
Notifications
You must be signed in to change notification settings - Fork 6
/
AIChatbar.dpr
45 lines (37 loc) · 1.12 KB
/
AIChatbar.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
program AIChatbar;
{$R *.dres}
uses
madExcept,
madLinkDisAsm,
madListHardware,
madListProcesses,
madListModules,
Vcl.Forms,
Windows,
menu in 'menu.pas' {frmMenu},
Splash in 'Splash.pas',
settings in 'settings.pas' {frmSetting},
functions in 'functions.pas',
Vcl.Themes,
Vcl.Styles,
frmChatWebView in 'frmChatWebView.pas' {mainBrowser},
uBrowserCard in 'uBrowserCard.pas',
uBrowserFrame in 'uBrowserFrame.pas' {BrowserFrame: TFrame},
uChildForm in 'uChildForm.pas',
settingsHelper in 'settingsHelper.pas',
frameEditSite in 'frameEditSite.pas' {Frame1: TFrame},
frmTaskGPT in 'frmTaskGPT.pas' {taskForm};
{$R *.res}
begin
if FindWindow('AIChatbarWnd', nil) > 0 then
Exit;
Application.Initialize;
Application.MainFormOnTaskBar := False;
TStyleManager.TrySetStyle('Windows11 Modern Dark');
Application.Title := 'AIChat';
Application.CreateForm(TfrmMenu, frmMenu);
Application.CreateForm(TfrmSetting, frmSetting);
Application.CreateForm(TmainBrowser, mainBrowser);
Application.CreateForm(TtaskForm, taskForm);
Application.Run;
end.