SSTPのSenderを 'SSTP Bottle' から Application.Title に変更(Yasagure Clientに合わせた)

diff --git a/bottleclient/FMOExplorer.pas b/bottleclient/FMOExplorer.pas
index 745b20a..d836f3e 100755 (executable)
--- a/bottleclient/FMOExplorer.pas
+++ b/bottleclient/FMOExplorer.pas
@@ -100,7 +100,7 @@ begin
         lvwList.Items[i].SubItems[4] := '\90³\8fí';
       end else begin
         DirectSSTP.TargetHWnd := SakuraSeeker[i].HWnd;
-        DirectSSTP.SstpSender := 'SSTP Bottle';
+        DirectSSTP.SstpSender := Application.Title;
         s := DirectSSTP.SstpEXECUTE('GetVersion');
         TmpStr := TStringList.Create;
         try