bottleclient/SstpBottle.dpr

   1 {*******************************************************}
   2 {                                                       }
   3 {       SSTP Bottle Client                              }
   4 {                                                       }
   5 {       Copyright (C) 2001-2003 naru/Mikage Sawatari    }
   6 {                                                       }
   7 {*******************************************************}
   8
   9 program SstpBottle;
  10
  11 {%ToDo 'SstpBottle.todo'}
  12
  13 uses
  14   // MemCheck,
  15   Forms,
  16   MainForm in 'MainForm.pas' {frmSender},
  17   BRegExp in 'BRegExp.pas',
  18   BottleDef in 'BottleDef.pas',
  19   ConstEditor in 'ConstEditor.pas' {frmConstEditor},
  20   SendConfirm in 'SendConfirm.pas' {frmConfirmSend},
  21   SettingForm in 'SettingForm.pas' {frmSetting},
  22   LogForm in 'LogForm.pas' {frmLog},
  23   HeadValue in 'HeadValue.pas',
  24   ChannelListForm in 'ChannelListForm.pas' {frmChannelList},
  25   MessageBox in 'MessageBox.pas' {frmMessageBox},
  26   Logs in 'Logs.pas',
  27   HttpThread in 'HttpThread.pas',
  28   LogDownload in 'LogDownload.pas' {frmLogDownload},
  29   ColorSettingFrame in 'ColorSettingFrame.pas' {frmColorSetting: TFrame},
  30   ScriptConsts in 'ScriptConsts.pas',
  31   BottleChainEvent in 'BottleChainEvent.pas',
  32   BottleChainRule in 'BottleChainRule.pas',
  33   BottleChainListFrame in 'BottleChainListFrame.pas' {frmBottleChainList: TFrame},
  34   BottleChainRuleEditor in 'BottleChainRuleEditor.pas' {frmBottleChainRuleEditor},
  35   MinMaxEditor in 'MinMaxEditor.pas' {frmMinMaxEditor},
  36   StrListEditor in 'StrListEditor.pas' {frmStrListEditor},
  37   MultipleChoiceEditor in 'MultipleChoiceEditor.pas' {frmMultipleChoiceEditor},
  38   SakuraSeekerInstance in 'SakuraSeekerInstance.pas',
  39   FMOExplorer in 'FMOExplorer.pas' {frmFMOExplorer},
  40   OpenFileEditor in 'OpenFileEditor.pas' {frmOpenFileEditor},
  41   BottleSstp in 'BottleSstp.pas';
  42
  43 // \8c^\95t\82«\92è\90\94\82ð\95Ï\8dX\82Å\82«\82é\82æ\82¤\82É\82·\82é\83R\83\93\83p\83C\83\89\83I\83v\83V\83\87\83\93
  44 // \88ê\95\94\82Ì\83R\83\93\83|\81[\83l\83\93\83g\82É\82±\82ê\82ª\95K\97v
  45 {$J+}
  46
  47 {$R *.RES}
  48
  49 // WindowsXP\82ÌLuna\91Î\89\9e\81B\82½\82¾\82µDelphi7\82Ì\82Ý\81B
  50 // Delphi6\82È\82ç\81A\82à\82µ\82©\82µ\82½\82ç$R\82µ\82Ä\82à\93®\82\82©\82à\82µ\82ê\82Ü\82¹\82ñ\82ª\81A
  51 // Delphi5Pro\82¾\82Æ ListView \82Ì\83J\83\89\83\80\83N\83\8a\83b\83N\82È\82Ç\82Å\95s\8bï\8d\87\82ª\8fo\82Ü\82·\82Ì\82Å\83_\83\81\82Å\82·\81B
  52 {$IFDEF CONDITIONALEXPRESSIONS}
  53   {$IF Declared(CompilerVersion)}
  54       {$IF CompilerVersion >= 15.0} // Delphi7\88È\8fã\82È\82ç
  55         {$R WindowsXP.RES}
  56       {$IFEND}
  57   {$IFEND}
  58 {$ENDIF}
  59
  60 begin
  61   // MemChk;
  62   Application.Initialize;
  63   Application.Title := 'SSTP Bottle Client';
  64   Application.ShowMainForm := true;
  65   Application.CreateForm(TfrmSender, frmSender);
  66   Application.CreateForm(TfrmLog, frmLog);
  67   Application.CreateForm(TfrmChannelList, frmChannelList);
  68   Application.CreateForm(TfrmMessageBox, frmMessageBox);
  69   Application.CreateForm(TfrmFMOExplorer, frmFMOExplorer);
  70   Application.CreateForm(TfrmOpenFileEditor, frmOpenFileEditor);
  71   if not Application.Terminated then frmSender.Show;
  72   Application.Run;
  73 end.