简单问题.近来有份.

Question

在注册表中得到详细的版本信息
如果没记错的话在HKEY—LOCAL—MACHINE里面

Answer 1

if 
(Win32Platform <> VER_PLATFORM_WIN32_WINDOWS)
 or (Win32MajorVersion > 4) then
begin
.....do anything for win2000
end;其中:
Win32MajorVersion：
  Windows 95           4 
  Windows 98           4 
  Windows Me           4 
  Windows NT 3.51      3 
  Windows NT 4.0       4 
  Windows 2000         5 
  Windows XP           5 

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
   myversioninfo:TOSVersioninfo;
begin
   myversioninfo.dwOSVersionInfoSize:=sizeof(TOSVERSIONINFO);
   getversionex(myversioninfo);
   if myversioninfo.dwPlatformId=ver_platform_win32_windows then
      showmessage('win98');
   if myversioninfo.dwPlatformId=ver_platform_win32_nt then
      showmessage('winnt');
end;