Don't install spelling dicts if win8+
This commit is contained in:
parent
7e7e87600e
commit
b009084a52
|
@ -230,8 +230,16 @@ end;
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////
|
||||||
function CheckSpellInstall(): Boolean;
|
function CheckSpellInstall(): Boolean;
|
||||||
|
var
|
||||||
|
Version: TWindowsVersion;
|
||||||
begin
|
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;
|
end;
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////
|
||||||
|
|
Loading…
Reference in New Issue