Log in

View Full Version : System Requirement Page


gatosky1620
25-09-2016, 17:59
Anyone have a new version System Requirement Page (HWREQ_Page), because in the version that i have i cant make compare mayor, minor, and Service Pack windows version

Razor12911
29-09-2016, 16:58
http://fileforums.com/showthread.php?t=95775
use this library

gatosky1620
03-10-2016, 17:34
I have w7 service pack 1

and if i set

#define WinVerMajor "8"
#define WinVerMinor "3"
#define WinVerService "0"

WHY?? Alway CompareWindows "OK"

*Hwerq Module.iss*

function HWREQ_CompareWindows(): Boolean;
var tmp: TWindowsVersion;
begin
Result:= False;
if HWREQ.WinVer.NTPlatform then begin
if (tmp.Major <= {#WinVerMajor}) then
if (tmp.Minor <= {#WinVerMinor}) then
if (tmp.ServicePackMajor <= {#WinVerService}) then
Result:= True;
end;
end;

Razor12911
03-10-2016, 17:40
You would rather get build number.

Build numbers simplify everything, Windows 7 build is 7600, SP1 version is 7601.

#define WinBuild "7600"

procedure GetSysInfo(var SysInfo: TSysInfo);
external 'GetSysInfo@files:Isab.dll stdcall delayload';

var SystemInfo: TSysInfo;

GetSysInfo(SystemInfo);

function CompreWindows:Boolean;
begin
Result:=SystemInfo.OSBuildNumbers>={#WinBuild};
end;

http://fileforums.com/showpost.php?p=430455&postcount=1

gatosky1620
03-10-2016, 17:50
You would rather get build number.

Build numbers simplify everything, Windows 7 build is 7600, SP1 version is 7601.

#define WinBuild "7600"

procedure GetSysInfo(var SysInfo: TSysInfo);
external 'GetSysInfo@files:Isab.dll stdcall delayload';

var SystemInfo: TSysInfo;

GetSysInfo(SystemInfo);

function CompreWindows:Boolean;
begin
Result:=SystemInfo.OSBuildNumbers>={#WinBuild};
end;

http://fileforums.com/showpost.php?p=430455&postcount=1

can you update The HWREQ_Module.iss with the peterf library, because i dont know muc

Razor12911
04-10-2016, 20:58
function HWREQ_CompareWindows(): Boolean;
var
S: String;
begin
RegQueryStringValue(HKLM,'SOFTWARE\Microsoft\Windo ws NT\CurrentVersion','CurrentBuildNumber',S);
Result:= StrToInt(S) >= {#WinBuild};
end;

gatosky1620
07-10-2016, 11:41
razor bro thanks for you help, now i need your help again

how i do to add and compare the directx version in system page requeriments