Browse Source

Fix detection of Edge

Laurent Destailleur 2 năm trước cách đây
mục cha
commit
4dd3b48a75
1 tập tin đã thay đổi với 11 bổ sung0 xóa
  1. 11 0
      build/exe/doliwamp/doliwamp.iss

+ 11 - 0
build/exe/doliwamp/doliwamp.iss

@@ -582,6 +582,17 @@ begin
 		    end;
 		  end;
 
+	      if browser = 'iexplore.exe' then
+	      begin
+		    if FileExists (pfPath+'/Microsoft/Edge/Application/msedge.exe')  then
+		    begin
+		      if MsgBox(CustomMessage('MicrosoftEdgeDetected'),mbConfirmation,MB_YESNO) = IDYES then
+		      begin
+		        browser := pfPath+'/Microsoft/Edge/Application/msedge.exe';
+		      end;
+		    end;
+		  end;
+
 	      if browser = 'iexplore.exe' then
 	      begin
             if FileExists (pfPath+'/Internet Explorer/iexplore.exe')  then