PC1\PTyTb
50 lines
1.6 KiB
ObjectPascal
50 lines
1.6 KiB
ObjectPascal
program TTW_Bot_app;
|
|
|
|
uses
|
|
System.StartUpCopy, SysUtils,
|
|
FMX.Forms,
|
|
uGeneral in 'uGeneral.pas' {TTW_Bot} ,
|
|
fSettings in 'fSettings.pas' {frSettings: TFrame} ,
|
|
fAI in 'fAI.pas' {frAI: TFrame} ,
|
|
fNotify in 'fNotify.pas' {frNotify: TFrame} ,
|
|
fAutoActions in 'fAutoActions.pas' {frAutoActions: TFrame} ,
|
|
fOBS in 'fOBS.pas' {frOBS: TFrame} ,
|
|
fLog in 'fLog.pas' {frLog: TFrame} ,
|
|
uRecords in 'uRecords.pas',
|
|
fCommands in 'fCommands.pas' {frCommands: TFrame} ,
|
|
uDataBase in 'uDataBase.pas',
|
|
fColorSettings in 'fColorSettings.pas' {frColorSettings: TFrame} ,
|
|
uCreateChat in 'uCreateChat.pas' {fCreateChat} ,
|
|
fFontSettings in 'fFontSettings.pas' {frFontSettings: TFrame} ,
|
|
uCreateNotify in 'uCreateNotify.pas' {fCreateNotify} ,
|
|
uTWAuth in 'uTWAuth.pas',
|
|
uTTWAPI in 'uTTWAPI.pas',
|
|
uAPIDA in 'uAPIDA.pas',
|
|
uShowText in 'uShowText.pas' {fShowText} ,
|
|
uWSDA in 'uWSDA.pas',
|
|
uQ in 'uQ.pas' {frmQ} ,
|
|
fSimpleGrid in 'fSimpleGrid.pas' {frSimpleGrid: TFrame} ,
|
|
fContruct in 'fContruct.pas' {frContruct: TFrame} ,
|
|
fGroupsRequest in 'fGroupsRequest.pas' {frGroupsRequest: TFrame} ,
|
|
uMyTimer in 'uMyTimer.pas',
|
|
uRegExpr in 'uRegExpr.pas';
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
|
|
{$IFDEF DEBUG}
|
|
ReportMemoryLeaksOnShutdown := True;
|
|
{$ENDIF}
|
|
Application.Initialize;
|
|
|
|
Application.CreateForm(TTTW_Bot, TTW_Bot);
|
|
Application.OnException := TTW_Bot.GlobalExceptionHandler;
|
|
Application.CreateForm(TfCreateChat, fCreateChat);
|
|
Application.CreateForm(TfCreateNotify, fCreateNotify);
|
|
Application.CreateForm(TfShowText, fShowText);
|
|
Application.CreateForm(TfrmQ, frmQ);
|
|
Application.Run;
|
|
|
|
end.
|