Judgment system is 98/2000
-------------------------------------------------- -------------------
VAR
OS: TOSVERSIONFO;
Osname: String;
Begin
Os.dwosversionInfosize: = sizeof (tosversioninfo);
IF getversionex (os) = true kil
Begin
Case Os.dwplatformID of
VER_PLATFORM_WIN32S: OsName: = 'Windows 3.1 / Win32S'
VER_PLATFORM_WIN32_WINDOWS: OSNAME: = 'Windows';
VER_PLATFORM_WIN32_NT: OSNAME: = 'Windows NT';
END;
END;
END;
-------------------------------------------------- -------------------
Read the registry through the program
HKEY_LOCAL_MACHINE / SOFTWARE / Microsoft / Windows / CurrentVersion
If you are the Version key value, you can go in first and see it.
-------------------------------------------------- -------------------
GetSystemVersion
-------------------------------------------------- -------------------
