Changeset 108

Timestamp:

Apr 20, 2007, 8:29:53 PM (18 years ago)

Author:

RBRi

Message:

fix for bug #19

File:

• trunk/NewView/WebBrowserUnit.pas (modified) (2 diffs)

trunk/NewView/WebBrowserUnit.pas

@@ -48 +48 @@
 
 
+  Function GetDefaultParameters : String;
+  begin
+    Result := GetUserProfileString(PROFILE_KEY_WPURLDEFAULTSETTINGS, 'DefaultParameters', '');
+  end;
+
+
+
   Procedure LaunchURL(const aURL: String);
   var
     tmpBrowserPath : String;
     tmpBrowserWorkingDir : String;
+    tmpBrowserParameters : String;
   begin
     tmpBrowserPath := GetDefaultBrowserPath;
     tmpBrowserWorkingDir := GetDefaultBrowserWorkingDir;
+    tmpBrowserParameters := GetDefaultParameters;
+
     if tmpBrowserPath = '' then
     begin
@@ -67 +77 @@
     ChDir(RemoveRightDirectorySeparator(tmpBrowserWorkingDir));
 
-    LaunchProgram(tmpBrowserPath, aURL, tmpBrowserWorkingDir);
+    LaunchProgram(tmpBrowserPath, tmpBrowserParameters + ' ' + aURL, tmpBrowserWorkingDir);
   end;