Sfoglia il codice sorgente

Again: Don't treat a failed trust check on ISPP.dll the same as a missing ISPP.dll.

Martijn Laan 4 mesi fa
parent
commit
ec2e3e5b99
2 ha cambiato i file con 3 aggiunte e 3 eliminazioni
  1. 1 1
      Projects/ISCC.dpr
  2. 2 2
      Projects/Src/IDE.HelperFunc.pas

+ 1 - 1
Projects/ISCC.dpr

@@ -651,7 +651,7 @@ end;
 
 
 function ISPPInstalled: Boolean;
 function ISPPInstalled: Boolean;
 begin
 begin
-  Result := TrustedFileExists(PathExtractPath(NewParamStr(0)) + 'ISPP.dll');
+  Result := NewFileExists(PathExtractPath(NewParamStr(0)) + 'ISPP.dll');
 end;
 end;
 
 
 begin
 begin

+ 2 - 2
Projects/Src/IDE.HelperFunc.pas

@@ -85,7 +85,7 @@ implementation
 uses
 uses
   ActiveX, ShlObj, ShellApi, CommDlg, SysUtils, IOUtils, StrUtils,
   ActiveX, ShlObj, ShellApi, CommDlg, SysUtils, IOUtils, StrUtils,
   Messages, DwmApi, Consts,
   Messages, DwmApi, Consts,
-  TrustFunc, Shared.CommonFunc, Shared.CommonFunc.Vcl, PathFunc, Shared.FileClass, NewUxTheme,
+  Shared.CommonFunc, Shared.CommonFunc.Vcl, PathFunc, Shared.FileClass, NewUxTheme,
   IDE.MainForm, IDE.Messages, Shared.ConfigIniFile;
   IDE.MainForm, IDE.Messages, Shared.ConfigIniFile;
 
 
 procedure InitFormFont(Form: TForm);
 procedure InitFormFont(Form: TForm);
@@ -233,7 +233,7 @@ end;
 
 
 function ISPPInstalled: Boolean;
 function ISPPInstalled: Boolean;
 begin
 begin
-  Result := TrustedFileExists(PathExtractPath(NewParamStr(0)) + 'ISPP.dll');
+  Result := NewFileExists(PathExtractPath(NewParamStr(0)) + 'ISPP.dll');
 end;
 end;
 
 
 function IsISPPBuiltins(const Filename: String): Boolean;
 function IsISPPBuiltins(const Filename: String): Boolean;