ヘルプページ、SSTP Bottleホームページ、投票ランキングページの各メニューでウェブページを

開く場合もブラウザ設定が効くようにした。

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 4a22964..b00fa73 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -1362,8 +1362,17 @@ begin
 end;
 
 procedure TfrmSender.mnGoToHPClick(Sender: TObject);
+var
+  Command: string;
 begin
-  ShellExecute(Handle, 'open', PChar(Pref.HomePage), nil, nil, SW_SHOW);
+  if Pref.BrowserExeName='' then
+    begin
+      ShellExecute(Handle, 'open', PChar(Pref.HomePage), nil, nil, SW_SHOW);
+    end else
+    begin
+      Command := Pref.BrowserExeName+' '+Pref.HomePage;
+      WinExec(PChar(Command), SW_SHOW);
+    end;
 end;
 
 procedure TfrmSender.ShowHintLabel(const Mes: String; Col: TColor);
@@ -1988,8 +1997,17 @@ begin
 end;
 
 procedure TfrmSender.mnGotoVoteClick(Sender: TObject);
+var
+  Command: string;
 begin
-  ShellExecute(Handle, 'open', PChar(Pref.VotePage), nil, nil, SW_SHOW);
+  if Pref.BrowserExeName='' then
+    begin
+      ShellExecute(Handle, 'open', PChar(Pref.VotePage), nil, nil, SW_SHOW);
+    end else
+    begin
+      Command := Pref.BrowserExeName+' '+Pref.VotePage;
+      WinExec(PChar(Command), SW_SHOW);
+    end;
 end;
 
 procedure TfrmSender.tabChannelMouseMove(Sender: TObject;
@@ -2005,8 +2023,17 @@ begin
 end;
 
 procedure TfrmSender.mnGoToHelpClick(Sender: TObject);
+var
+  Command: string;
 begin
-  ShellExecute(Handle, 'open', PChar(Pref.HelpPage), nil, nil, SW_SHOW);
+  if Pref.BrowserExeName='' then
+    begin
+      ShellExecute(Handle, 'open', PChar(Pref.HelpPage), nil, nil, SW_SHOW);
+    end else
+    begin
+      Command := Pref.BrowserExeName+' '+Pref.HelpPage;
+      WinExec(PChar(Command), SW_SHOW);
+    end;
 end;
 
 procedure TfrmSender.tabChannelMouseDown(Sender: TObject;