File tree Expand file tree Collapse file tree 1 file changed +5
-3
lines changed
Expand file tree Collapse file tree 1 file changed +5
-3
lines changed Original file line number Diff line number Diff line change @@ -102,8 +102,10 @@ procedure TSettings.DetectTools();
102102 BdsVersion: Integer;
103103 BdsKey, BdsPath: String;
104104begin
105- FRibbonCompilerPath := FindTool(' UICC.exe' );
106- FResourceCompilerPath := FindTool(' rc.exe' );
105+ if not FileExists(FRibbonCompilerPath) then
106+ FRibbonCompilerPath := FindTool(' UICC.exe' );
107+ if not FileExists(FResourceCompilerPath) then
108+ FResourceCompilerPath := FindTool(' rc.exe' );
107109
108110 // Find delphi compiler
109111 Reg := TRegistry.Create;
@@ -145,9 +147,9 @@ function TSettings.GetSearchPaths: string;
145147 lList.Delimiter := PathSep;
146148 lList.Add(ExtractFileDir(ParamStr(0 ))); // Check current directory of the RibbonCMDCompiler.exe first to find ribbon compiler UICC.exe
147149 lList.Add(GetEnvironmentVariable(' PATH' ));
150+ lList.Add(GetEnvironmentVariable(' ProgramFiles(x86)' ) + ' \Windows Kits\10\bin\10.0.18362.0\x86\' );
148151 lList.Add(GetEnvironmentVariable(' ProgramFiles' ) + ' \Windows Kits\10\bin\x86\' );
149152 lList.Add(GetEnvironmentVariable(' ProgramFiles(x86)' ) + ' \Windows Kits\10\bin\x86\' );
150- lList.Add(GetEnvironmentVariable(' ProgramFiles(x86)' ) + ' \Windows Kits\10\bin\x86\' );
151153 lList.Add(GetEnvironmentVariable(' ProgramFiles' ) + ' \Windows Kits\8.1\bin\x86\' );
152154 lList.Add(GetEnvironmentVariable(' ProgramFiles(x86)' ) + ' \Windows Kits\8.1\bin\x86\' );
153155 lList.Add(GetEnvironmentVariable(' ProgramFiles' ) + ' \Microsoft SDKs\Windows\v7.1\Bin\' );
You can’t perform that action at this time.
0 commit comments