起動時にProxyの有効無効を尋ねるオプションを追加

[winbottle/winbottle.git] / bottleclient / SstpBottle.dpr

diff --git a/bottleclient/SstpBottle.dpr b/bottleclient/SstpBottle.dpr
index 0fd2d3a..4bff0ad 100755 (executable)
--- a/bottleclient/SstpBottle.dpr
+++ b/bottleclient/SstpBottle.dpr
@@ -99,6 +99,16 @@ begin
   end;
   {$ENDIF}
 
+  if Pref.AskUseHttpProxy then begin
+    if Application.MessageBox('Proxy\82ð\97\98\97p\82µ\82Ü\82·\82©\81H','BottleClient',MB_YESNO) = IDYES then begin
+      if Length(Pref.ProxyAddress) > 0 then begin
+        Pref.UseHttpProxy := true;
+      end;
+    end else begin
+      Pref.UseHttpProxy := false;
+    end;
+  end;
+
   Application.Initialize;
   Application.Title := 'SSTP Bottle Client';
   Application.ShowMainForm := true;