8 replies to this topic

[Max_Real Qnx]

Hi WinBuilder Developer

 

Message,%HostOS%,INFORMATION

 

 

http://www.maxrealqn...uilderBug1.html

 

I found one or two minor errors. This code gives a blank output on the Windows 8. And why the WinBuilder does not support hidden files ? (It does not matter to me. However, it arouses the curiosity.) Kind regards

[pscEx]

The answer is simple: When WinBuilder 82 has been published, a regular Win8 host was not yet known.

 

Here the code to evaluate %HostOS%:

procedure GetWinVersion;
var
  osVerInfo: TOSVersionInfo;
  majorVersion, minorVersion: Integer;
begin
  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(osVerInfo) then
  begin
    minorVersion := osVerInfo.dwMinorVersion;
    majorVersion := osVerInfo.dwMajorVersion;
    if majorVersion <= 4 then
      HostOS := 'NT'
    else if (majorVersion = 5) and (minorVersion = 0) then
      HostOS := 'W2000'
    else if (majorVersion = 5) and (minorVersion = 1) then
      HostOS := 'XP'
    else if (majorVersion = 5) and (minorVersion = 2) then
      HostOS := 'W2003'
    else if (majorVersion = 6) and (minorVersion = 0) then
      HostOS := 'Vista'
    else if (majorVersion = 6) and (minorVersion = 1) then
      HostOS := 'Win7';
  end;
end;

The 'Hidden' issue:

Never intended to have WinBuilder files hidden. I do not have any opinion what happens when an Admin starts a hidden App, or the app wants to access a hidden file.

 

Peter

[Max_Real Qnx]

Hi pscEx Thank you for your reply. Can you develop a new function for the %HostOs%. I do not understand Delphi programming language. But I think, it should have a similar code like to filegetversion code of the autoit. In this way, you can create yourself equality with the value that you obtained. Am I wrong ? The hidden files issue are not very important. But do not you think that something is going wrong ? Kind regards

[paraglider]

As long as you only want to detect client os then your code is ok. However server os like w2008r2, w2012 share the same major / minor versions as the client os. You also should look at wProductType:

 

http://msdn.microsof...3(v=vs.85).aspx

[pscEx]

As long as you only want to detect client os then your code is ok. However server os like w2008r2, w2012 share the same major / minor versions as the client os. You also should look at wProductType:

 

http://msdn.microsof...3(v=vs.85).aspx

You are right, but IMHO it is not reasonable to create a new variable %HostOSType% telling the user about the functionality (client / server / domain controller) of the host in the network.

I do not know any WinBuilder script where this information is needed.

 

BTW: The title of this topic tells about 'latest stable ...'. This is currently WinBuilder 082. Max's video shows use of 083.

To avoid misunderstandings: 083 is not supported by the WinBuilder author Nuno Brito. It is currently only tolerated by him.

BTW2: For me, I added Win8 detection in my 'private' WinBuilder 083.

 

Peter

[Wonko the Sane]

Fixed snippet :
 
 
 

procedure GetWinVersion;
var
osVerInfo: TOSVersionInfo;
majorVersion, minorVersion: Integer;
begin
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
begin
minorVersion := osVerInfo.dwMinorVersion;
majorVersion := osVerInfo.dwMajorVersion;
if majorVersion <= 4 then
HostOS := 'NT'
else if (majorVersion = 5) and (minorVersion = 0) then
HostOS := 'W2000'
else if (majorVersion = 5) and (minorVersion = 1) then
HostOS := 'XP'
else if (majorVersion = 5) and (minorVersion = 2) then
HostOS := 'W2003'
else if (majorVersion = 6) and (minorVersion = 0) then
HostOS := 'Vista or Server 2008, cannot say'
else if (majorVersion = 6) and (minorVersion = 1) then
HostOS := 'Win7 or Server 2008 R2, cannot say';
else if (majorVersion = 6) and (minorVersion = 2) then
HostOS := 'Win8 or Server 2012, cannot say';

end;
end;

Wonko

[pscEx]

That you can download since several hours from http://nativeex.exec...Builder_83.zip. And you can use it, provided you have the friends password.

 

About 'cannot say': see my post above.

 

Peter

[Wonko the Sane]

And you can use it, provided you have the friends password.

NO secret hand-shake?


Wonko

[pscEx]

Serious multiPE users have no issues!

 

Peter