bottleclient/SstpBottle.dpr

   1 {*******************************************************}
   2 {                                                       }
   3 {       SSTP Bottle Client                              }
   4 {                                                       }
   5 {       Copyright (C) 2001-2002 \82È\82é(naruto)            }
   6 {                                                       }
   7 {*******************************************************}
   8
   9 program SstpBottle;
  10
  11 {%ToDo 'SstpBottle.todo'}
  12
  13 uses
  14   Forms,
  15   MainForm in 'MainForm.pas' {frmSender},
  16   BRegExp in 'BRegExp.pas',
  17   BottleDef in 'BottleDef.pas',
  18   ConstEditor in 'ConstEditor.pas' {frmConstEditor},
  19   SendConfirm in 'SendConfirm.pas' {frmConfirmSend},
  20   SettingForm in 'SettingForm.pas' {frmSetting},
  21   LogForm in 'LogForm.pas' {frmLog},
  22   HeadValue in 'HeadValue.pas',
  23   ChannelListForm in 'ChannelListForm.pas' {frmChannelList},
  24   MessageBox in 'MessageBox.pas' {frmMessageBox},
  25   Logs in 'Logs.pas',
  26   HttpThread in 'HttpThread.pas',
  27   LogDownload in 'LogDownload.pas' {frmLogDownload},
  28   ColorSettingFrame in 'ColorSettingFrame.pas' {frmColorSetting: TFrame},
  29   ScriptConsts in 'ScriptConsts.pas',
  30   BottleChainEvent in 'BottleChainEvent.pas',
  31   BottleChainRule in 'BottleChainRule.pas',
  32   BottleChainListFrame in 'BottleChainListFrame.pas' {frmBottleChainList: TFrame},
  33   BottleChainRuleEditor in 'BottleChainRuleEditor.pas' {frmBottleChainRuleEditor},
  34   MinMaxEditor in 'MinMaxEditor.pas' {frmMinMaxEditor},
  35   StrListEditor in 'StrListEditor.pas' {frmStrListEditor},
  36   MultipleChoiceEditor in 'MultipleChoiceEditor.pas' {frmMultipleChoiceEditor},
  37   SakuraSeekerInstance in 'SakuraSeekerInstance.pas';
  38
  39 {$R *.RES}
  40 {$DEFINE Mani}
  41 {$IFDEF Manifest}
  42 {$R manifest.RES}
  43 {$ENDIF}
  44
  45 begin
  46   Application.Initialize;
  47   Application.Title := 'SSTP Bottle Client';
  48   Application.ShowMainForm := true;
  49   Application.CreateForm(TfrmSender, frmSender);
  50   Application.CreateForm(TfrmLog, frmLog);
  51   Application.CreateForm(TfrmChannelList, frmChannelList);
  52   Application.CreateForm(TfrmMessageBox, frmMessageBox);
  53   if not Application.Terminated then frmSender.Show;
  54   Application.Run;
  55 end.