Procedure Taboutform.getosinfo;
VAR
Platform: String;
BuildNumber: Integer;
Begin
Case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
Begin
Platform: = 'windows 95';
BuildNumber: = Win32BuildNumber and $ 0000FFFF;
END;
VER_PLATFORM_WIN32_NT:
Begin
Platform: = 'Windows NT';
BuildNumber: = Win32BuildNumber;
END;
Else
Begin
Platform: = 'windows';
BuildNumber: = 0;
END;
END;
IF (Win32Platform = Ver_Platform_WIN32_WINDOWS) OR
(Win32Platform = VER_PLATFORM_WIN32_NT) THEN
Begin
IF Win32csdversion = '' THEN
Os.caption: = Format ('% s% d.% D (build% d)', [Platform, Win32majorversion,
Win32minorversion, buildnumber])
Else
Os.caption: = format ('% s% d.% D (build% d:% s)', [Platform, Win32majorversion,
Win32minorversion, BuildNumber, Win32csdversion]);
end
Else
Os.caption: = format ('% s% d.% D', [Platform, Win32majorversion,
Win32minorVersion])
END;
This process can be placed in any place that wants to call, not only the operating system, but also a detailed version number.
