AP名変更、二重起動できるように変更

diff --git a/bottleclient/SstpBottle.dpr b/bottleclient/SstpBottle.dpr
index d8c14f2..5598e87 100755 (executable)
--- a/bottleclient/SstpBottle.dpr
+++ b/bottleclient/SstpBottle.dpr
@@ -35,8 +35,8 @@ uses
   ChannelListForm in 'ChannelListForm.pas' {frmChannelList},
   MessageBox in 'MessageBox.pas' {frmMessageBox},
   Logs in 'Logs.pas',
-  HttpThread in 'HttpThread.pas',
-  LogDownload in 'LogDownload.pas' {frmLogDownload},
+//  HttpThread in 'HttpThread.pas',
+//  LogDownload in 'LogDownload.pas' {frmLogDownload},
   ColorSettingFrame in 'ColorSettingFrame.pas' {frmColorSetting: TFrame},
   ScriptConsts in 'ScriptConsts.pas',
   BottleChainEvent in 'BottleChainEvent.pas',
@@ -83,23 +83,25 @@ uses
   {$IFEND}
 {$ENDIF}
 
-var
-  Mutex: THandle;
+//var
+//  Mutex: THandle;
 
 begin
   {$IFDEF NOMUTEX}
-  ShowMessage('\93ñ\8fd\8bN\93®\8b\96\89Â\83o\81[\83W\83\87\83\93\82Å\82·\81B'#13#10 + VersionString);
+//  ShowMessage('\93ñ\8fd\8bN\93®\8b\96\89Â\83o\81[\83W\83\87\83\93\82Å\82·\81B'#13#10 + VersionString);
   {$ELSE}
+{
   Mutex := CreateMutex(nil, true, 'SSTPBottleClient2');
   if GetLastError = ERROR_ALREADY_EXISTS then begin
     ShowMessage('SSTP Bottle Client\82Í\93ñ\8fd\8bN\93®\82Å\82«\82Ü\82¹\82ñ');
     CloseHandle(Mutex);
     Exit;
   end;
+}
   {$ENDIF}
 
   Application.Initialize;
-  Application.Title := 'SSTP Bottle Client';
+  Application.Title := 'Yasagure Client';
   Application.ShowMainForm := true;
   Application.CreateForm(TfrmSender, frmSender);
   Application.CreateForm(TfrmLog, frmLog);