bottleclient/SstpBottle.dpr

   1 {*******************************************************}
   2 {                                                       }
   3 {       SSTP Bottle Client                              }
   4 {                                                       }
   5 {       Copyright (C) 2001-2004 WinBottle Project       }
   6 {                                                       }
   7 {*******************************************************}
   8
   9
  10 (********************************)
  11 (* \82±\82ê\82Í\95s\8dK\82Ì\83\\81[\83X\82Å\82·\81B     *)
  12 (* \82±\82Ì\83\\81[\83X\82ð\8c©\82½\90l\82Í\81A       *)
  13 (* \88ê\8fT\8aÔ\88È\93à\82É\82U\82Â\82Ì\83o\83O\82ð     *)
  14 (* \8eæ\82ç\82È\82¢\82Æ\8e\80\82É\82Ü\82·\81B         *)
  15 (********************************)
  16
  17 { http://bottle.mikage.to/viewlog2.cgi?around=3eb34d9300000001 }
  18
  19 program SstpBottle;
  20
  21 {%ToDo 'SstpBottle.todo'}
  22
  23 uses
  24   Forms,
  25   Dialogs,
  26   Windows,
  27   MainForm in 'MainForm.pas' {frmSender},
  28   BRegExp in 'BRegExp.pas',
  29   BottleDef in 'BottleDef.pas',
  30   ConstEditor in 'ConstEditor.pas' {frmConstEditor},
  31   SendConfirm in 'SendConfirm.pas' {frmConfirmSend},
  32   SettingForm in 'SettingForm.pas' {frmSetting},
  33   LogForm in 'LogForm.pas' {frmLog},
  34   HeadValue in 'HeadValue.pas',
  35   ChannelListForm in 'ChannelListForm.pas' {frmChannelList},
  36   MessageBox in 'MessageBox.pas' {frmMessageBox},
  37   Logs in 'Logs.pas',
  38   HttpThread in 'HttpThread.pas',
  39   LogDownload in 'LogDownload.pas' {frmLogDownload},
  40   ColorSettingFrame in 'ColorSettingFrame.pas' {frmColorSetting: TFrame},
  41   ScriptConsts in 'ScriptConsts.pas',
  42   BottleChainEvent in 'BottleChainEvent.pas',
  43   BottleChainRule in 'BottleChainRule.pas',
  44   BottleChainListFrame in 'BottleChainListFrame.pas' {frmBottleChainList: TFrame},
  45   BottleChainRuleEditor in 'BottleChainRuleEditor.pas' {frmBottleChainRuleEditor},
  46   MinMaxEditor in 'MinMaxEditor.pas' {frmMinMaxEditor},
  47   StrListEditor in 'StrListEditor.pas' {frmStrListEditor},
  48   MultipleChoiceEditor in 'MultipleChoiceEditor.pas' {frmMultipleChoiceEditor},
  49   SakuraSeekerInstance in 'SakuraSeekerInstance.pas',
  50   FMOExplorer in 'FMOExplorer.pas' {frmFMOExplorer},
  51   OpenFileEditor in 'OpenFileEditor.pas' {frmOpenFileEditor},
  52   BottleSstp in 'BottleSstp.pas',
  53   SurfacePreview in 'SurfacePreview.pas' {frmSurfacePreview},
  54   SppList in 'SppList.pas',
  55   TalkShowFrame in 'TalkShowFrame.pas' {frmTalkShow: TFrame},
  56   EditorTalkShow in 'EditorTalkShow.pas' {frmEditorTalkShow},
  57   ProgressWindow in 'ProgressWindow.pas' {frmProgressWindow},
  58   Plugins in 'Plugins.pas',
  59   SpecialCharEditor in 'SpecialCharEditor.pas' {frmSpecialCharEditor},
  60   HtmlOutputConfig in 'HtmlOutputConfig.pas' {frmHTMLOutputConfig},
  61   HtmlOutputProgress in 'HtmlOutputProgress.pas' {frmHTMLOutputProgress},
  62   SearchLog in 'SearchLog.pas' {frmSearchLog},
  63   StrReplace in 'StrReplace.pas',
  64   RegexUtils in 'RegexUtils.pas',
  65   StrReplaceFrame in 'StrReplaceFrame.pas' {frmStrReplaceFrame: TFrame},
  66   StrReplaceDialog in 'StrReplaceDialog.pas' {frmStrReplaceDialog},
  67   ReplacePresetEditor in 'ReplacePresetEditor.pas' {frmReplacePresetEditor: TFrame};
  68
  69 // \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
  70 // \88ê\95\94\82Ì\83R\83\93\83|\81[\83l\83\93\83g\82É\82±\82ê\82ª\95K\97v
  71 {$J+}
  72
  73 {$R *.RES}
  74
  75 // WindowsXP\82ÌLuna\91Î\89\9e\81B\82½\82¾\82µDelphi7\82Ì\82Ý\81B
  76 // 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
  77 // 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
  78 {$IFDEF CONDITIONALEXPRESSIONS}
  79   {$IF Declared(CompilerVersion)}
  80     {$IF CompilerVersion >= 15.0} // Delphi7\88È\8fã\82È\82ç
  81       {$R WindowsXP.RES}
  82     {$IFEND}
  83   {$IFEND}
  84 {$ENDIF}
  85
  86 var
  87   Mutex: THandle;
  88
  89 begin
  90   {$IFDEF NOMUTEX}
  91   ShowMessage('\93ñ\8fd\8bN\93®\8b\96\89Â\83o\81[\83W\83\87\83\93\82Å\82·\81B'#13#10 + VersionString);
  92   {$ELSE}
  93   Mutex := CreateMutex(nil, true, 'SSTPBottleClient2');
  94   if GetLastError = ERROR_ALREADY_EXISTS then begin
  95     ShowMessage('SSTP Bottle Client\82Í\93ñ\8fd\8bN\93®\82Å\82«\82Ü\82¹\82ñ');
  96     CloseHandle(Mutex);
  97     Exit;
  98   end;
  99   {$ENDIF}
 100
 101   Application.Initialize;
 102   Application.Title := 'SSTP Bottle Client';
 103   Application.ShowMainForm := true;
 104   Application.CreateForm(TfrmSender, frmSender);
 105   Application.CreateForm(TfrmLog, frmLog);
 106   Application.CreateForm(TfrmMessageBox, frmMessageBox);
 107   Application.CreateForm(TfrmSurfacePreview, frmSurfacePreview);
 108   if not Application.Terminated then frmSender.Show;
 109   Application.Run;
 110
 111   {$IFDEF BOTTLEMUTEX}
 112   if Mutex > 0 then
 113     CloseHandle(Mutex);
 114   {$ENDIF}
 115
 116 end.