test 2
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