test 2
user_6919294
pascal
a year ago
905 B
8
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