Skip to content

Commit 88db570

Browse files
committed
Fixed issue #115:
* Added further Win10 SDK path * Make sure an existing setting is not overriden with empty string
1 parent a10fadd commit 88db570

File tree

1 file changed

+5
-3
lines changed

1 file changed

+5
-3
lines changed

Designer/Classes/Settings.pas

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -102,8 +102,10 @@ procedure TSettings.DetectTools();
102102
BdsVersion: Integer;
103103
BdsKey, BdsPath: String;
104104
begin
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\');

0 commit comments

Comments
 (0)