Don't install spelling dicts if win8+

This commit is contained in:
TingPing 2015-02-22 00:20:26 -05:00
parent 7e7e87600e
commit b009084a52
1 changed files with 9 additions and 1 deletions

View File

@ -230,8 +230,16 @@ end;
/////////////////////////////////////////////////////////////////////
function CheckSpellInstall(): Boolean;
var
Version: TWindowsVersion;
begin
Result := DirExists(ExpandConstant('{localappdata}') + '\enchant');;
GetWindowsVersionEx(Version);
// Windows 8 or greater has built in spell check.
if Version.NTPlatform and (Version.Major > 6) or ((Version.Major = 6) and (Version.Minor > 1)) then
Result := True
else
Result := DirExists(ExpandConstant('{localappdata}') + '\enchant\myspell');
end;
/////////////////////////////////////////////////////////////////////