Call the GetVersion Windows API function to return version information for Windows and DOS.
The function returns a LongInt which contains this information:
Byte #1 - Windows Version (Integer part)
Byte #2 - Windows Version (Fractional part)
Byte #3 - DOS Version (Fractional part)
Byte #4 - DOS Version (Integer part)
To display the versions in a Delphi form, create two Labels and add the following OnCreate event-handler:
procedure TForm1.FormCreate(Sender: TObject);
var
Version : LongInt;
begin
Version := GetVersion;
Label1.Caption := 'Windows ' +
IntToStr(LoByte(LoWord(Version))) + '.' +
IntToStr(HiByte(LoWord(Version)));
Label2.Caption := 'DOS ' +
IntToStr(HiByte(HiWord(Version))) + '.' +
IntToStr(LoByte(HiWord(Version)));
end;