test 2

 avatar
user_6919294
pascal
5 months ago
905 B
4
Indexable
// Hej Daria, spróbuj tak :)

// Zmodyfikowalałem komunikat w sekcji [Messages], dodając pytanie o kontynuację.
[Messages]
eng.WindowsVersionNotSupported=This installer may NOT work correctly on Windows 7/8 or older. Do you want to continue anyway?

// IsWindows10OrNewer nie jest wbudowaną funkcją w Inno Setup. Musimy ją zdefiniować. 
function IsWindows10OrNewer(): Boolean;
var
  Version: TWindowsVersion;
begin
  GetWindowsVersionEx(Version);
  Result := (Version.Major > 6) or ((Version.Major = 6) and (Version.Minor >= 2));
end;

function CompatibleSystem(): Boolean;
begin
  Result := IsWindows10OrNewer;
end;

function InitializeSetup(): Boolean;
begin
  if not CompatibleSystem then begin
     if MsgBox(ExpandConstant('{cm:WindowsVersionNotSupported}'), mbConfirmation, MB_YESNO) = IDNO then
     begin
      Abort;
    end;
  end;
  Result := True;  
end;
Editor is loading...
Leave a Comment