sjwrec
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Code]
var
ResultVer, ResultX64, ResultStart: Integer;
procedure isWinVer();
var
Version: TWindowsVersion;
begin
ResultVer:= 0;
GetWindowsVersionEx(Version);
// Возможные варианты:
// только для 7 (Version.Minor = 1)
// только для 8 (Version.Minor = 2)
// только для 8.1 (Version.Minor = 3)
// только для 8 и 8.1 (Version.Minor = 2 < 4) меньше 4 это защита от установки в версии старше 8.1.
If ((Version.Major = 6) and (Version.Minor = 2 < 4)) then ResultVer:= 1;
end;
//procedure isX64(); // раскоментировать если нужна проверка на разрядность
//begin
//ResultX64:= 0;
//If IsWin64 then ResultX64:= 1; // или If not IsWin64 для x86
//end;
function InitializeSetup(): Boolean;
begin
isWinVer();
//isX64(); // раскоментировать если нужна проверка на разрядность
ResultStart:= ResultVer //+ ResultX64; // раскоментировать если нужна проверка на разрядность
if ResultStart = 1 then begin // заменить на ResultStart = 2 - если нужна проверка на разрядность
Result:= True;
end
else
begin
MsgBox('Данный компонент предназначен только для Windows 8 / 8.1 - x64'+#13#13+'Установка завершает работу.', mbError, MB_OK);
Result:= False;
end;
end;
|
