Thread: Deathloop
View Single Post
  #6  
Old 06-10-2021, 08:49
Cesar82's Avatar
Cesar82 Cesar82 is offline
Registered User
 
Join Date: May 2011
Location: Brazil
Posts: 1,074
Thanks: 1,814
Thanked 2,304 Times in 787 Posts
Cesar82 is on a distinguished road
Quote:
Originally Posted by Prettyboy099 View Post
Thanks, I did not know.... In next update, I will fix it.....
No need to change. I reviewed it and found that it works that way too.
If you don't write the word build in the System= key line, the default value from the winverbuild= key will be read (see red color part code below).
Code:
function GetSystemReq(Key, Section: String): Integer;
begin
  case LowerCase(Key) of
    'winvermajor' : Result := WindowsRequirimentsFromString(Section + 'SystemReq', Key, GetValInt(Section + 'SystemReq', Key, 0));
    'winverminor' : Result := WindowsRequirimentsFromString(Section + 'SystemReq', Key, GetValInt(Section + 'SystemReq', Key, 0));
    'winverbuild' : Result := WindowsRequirimentsFromString(Section + 'SystemReq', Key, GetValInt(Section + 'SystemReq', Key, 0));
    'servicepack' : Result := WindowsRequirimentsFromString(Section + 'SystemReq', Key, GetValInt(Section + 'SystemReq', Key, 0));
    'ram'         : Result := Trunc(GetSizeBytes(GetValStr(Section + 'SystemReq', Key, ''), 0) / PowerK(1, POWER_MB));
    'videoram'    : Result := Trunc(GetSizeBytes(GetValStr(Section + 'SystemReq', Key, ''), 0) / PowerK(1, POWER_MB));
    else
      Result := GetValInt(Section + 'SystemReq', Key, 0);
  end;
end;
SUGGESTION (Perhaps this will be useful in another project):
See what it looks like if you include the CIU title option.

>> Setup.ini changes:
Code:
[SetupTitle]
Left=56
Top=13
Font=cocogoose letterpress
Visible=1

[SetupTitleAR]
Left=56
Top=14
Font=cocogoose letterpress
Visible=1

Last edited by Cesar82; 06-10-2021 at 09:18.
Reply With Quote
The Following 3 Users Say Thank You to Cesar82 For This Useful Post:
Gehrman (25-05-2022), GTX590 (09-10-2021), Prettyboy099 (06-10-2021)