case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS: ShowMessage ('Windows 9x');
VER_PLATFORM_WIN32_NT: ShowMessage ('Windows NT');
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS: ShowMessage ('Windows 9x');
VER_PLATFORM_WIN32_NT: ShowMessage ('Windows NT');
转载于:https://www.cnblogs.com/136700948/archive/2008/08/18/1270455.html