EXECUTE/1.2を投げる際のSenderがデフォルトのままになっていたのを修正

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