XTool (2020)

XTool (2020) 0.8.9

Нет прав для скачивания

Observer2323

Мимокрокодил
@Crachlow Thanks mate! After testing everything works.


I also added a function that informs users that the installer is supported by operating systems 10 +
Код:
[CustomMessages]
english.WindowsVersionNotSupported=This installer may NOT work correctly on Windows 7/8 or older. Do you want to continue anyway?

function IsWindows10OrNewer(): Boolean;
var
  Version: TWindowsVersion;
begin
  GetWindowsVersionEx(Version);
  Result := (Version.Major > 6) or ((Version.Major = 6) and (Version.Minor >= 2));
end;

function InitializeSetup(): Boolean;
begin
  if not IsWindows10OrNewer then
  begin
     if MsgBox(ExpandConstant('{cm:WindowsVersionNotSupported}'), mbConfirmation, MB_YESNO) = IDNO then
     begin
      Abort();
     end;
  end;
  //  additional code
  Result := True;
end;

Thank you for your help, and best regards!
 
Последнее редактирование:
Сверху