Added support for the Windows 8 SDK

Author: Joachim Marder

Designer/Classes/Settings.pas

@@ -114,6 +114,20 @@ procedure TSettings.DetectTools();
         FRibbonCompilerPath := '';
     end;
 
+    if (FRibbonCompilerPath = '') then
+    begin
+      FRibbonCompilerPath := GetEnvironmentVariable('ProgramW6432') + '\Microsoft SDKs\Windows\v7.1\Bin\UICC.exe';
+      if (not TFile.Exists(FRibbonCompilerPath)) then
+        FRibbonCompilerPath := '';
+    end;
+
+    if (FRibbonCompilerPath = '') then
+    begin
+      FRibbonCompilerPath := GetEnvironmentVariable('ProgramW6432') + '\Windows Kits\8.1\bin\x86\uicc.exe';
+      if (not TFile.Exists(FRibbonCompilerPath)) then
+        FRibbonCompilerPath := '';
+    end;
+
     if (FRibbonCompilerPath = '') then
     begin
       FRibbonCompilerPath := ExtractFilePath(ParamStr(0)) + 'UICC.exe';