read external program path value from ini file

riderkick · Jun 6, 2015 · 31a711b · 31a711b
1 parent 52dfc95
commit 31a711b
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/mangadownloader/forms/frmMain.pas b/mangadownloader/forms/frmMain.pas
@@ -2576,9 +2576,10 @@ procedure TMainForm.miFavoritesOpenWithClick(Sender: TObject);
       f := '';
     FindCloseUTF8(Info);
 
-    if edOptionExternal.Text <> '' then
+    s := options.ReadString('general', 'ExternalProgram', '');
+    if s <> '' then
     begin
-      s := StringReplace(edOptionExternal.Text, '%PATH%', fd, [rfReplaceAll]);
+      s := StringReplace(s, '%PATH%', fd, [rfReplaceAll]);
       s := StringReplace(s, '%FCHAPTER%', f, [rfReplaceAll]);
       with TProcessUTF8.Create(nil) do try
         CommandLine := s;
@@ -2638,9 +2639,10 @@ procedure TMainForm.miDownloadOpenWithClick(Sender: TObject);
       FindCloseUTF8(Info);
     end;
 
-    if edOptionExternal.Text <> '' then
+    s := options.ReadString('general', 'ExternalProgram', '');
+    if s <> '' then
     begin
-      s := StringReplace(edOptionExternal.Text, '%PATH%', fd, [rfReplaceAll]);
+      s := StringReplace(s, '%PATH%', fd, [rfReplaceAll]);
       s := StringReplace(s, '%FCHAPTER%', f, [rfReplaceAll]);
       with TProcessUTF8.Create(nil) do try
         CommandLine := s;