Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.

ID: 18064, WindowsVersion information 1.5

by Jonas Gunnarsson Email:

Retrive the Windows version information. WindowsVersion, SuiteMask, ProductType, ServicePack, PlatformId, CSDVersion.
Download Details
FTP  download also available
CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)
To download this, you must have registered:
A free membership

For Delphi, Version 4.0  to 7.0 712 downloads
Copyright: No significant restrictions

Size: 4,704 bytes
Updated on Tue, 23 Sep 2003 07:49:24 GMT
Originally uploaded on Tue, 28 May 2002 00:03:06 GMT
SHA1 Hash: 76960F35BD55BB2C787C2BD9AF22CDD30CDF837E
MD5 Hash: F9ECA76234977F0CF58BE42892479860

    Explore the files in this upload

A collection of procedures and links about retriving the WindowsVersion information. The unit(WinInfo.pas) define some constants and procedures to make it easy to get the WindowsVersion information. The unit use constants from the MS Platform SDK (November 2001), winnt.h (BUILD Version: 0082)

WinInfo.pas defines the following procedures/functions;

procedure GetWindowsVersion(
var MajorVersion: Integer;
var MinorVersion: Integer;
var BuildNumber: Integer;
var PlatformId: Integer;
var CSDVersion: String);

procedure GetProductType(
var IsServer: Boolean;
var ProductTypeString: String;
var SuiteMaskString: String;
var ServicePackString: String);

procedure GetWindowsInfo(
var WindowsVersion: Integer;
var WindowsPlatformId: Integer;
var WindowsVersionString: String;
var WindowsBuildString: String);

function GetWindowsLongInfo: String;

How to use see example code, WindowsVersions.pas.

Don't hesitate to send comments. I don't have all windowsversions;)


   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC03