对头,就是:<br>if Win32Platform = VER_PLATFORM_WIN32_NT then<br> MessageBox(0,'当前系统是 2000 or XP','Platform Test',mb_Ok);<br>If Win32Platform = VER_PLATFORM_WIN32_WINDOWS Then<br> MessageBox(0,'当前系统是 95 or 98 or ME','Platform Test',mb_Ok);<br><br>更详细的讨论在:<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=1358134