怎样获取当前系统版本？

Question

VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo);
  GetVersionEx(VersionInfo);  with VersionInfo do
  begin
    if dwPlatformID = VER_PLATFORM_WIN32_NT then
    begin
      build := Format (BUILDSTR, [LoWord(dwBuildNumber), szCSDVersion]);
      Lable1.Caption := Format('%s %d.%d (%s)', [PLATFORM_NT, dwMajorVersion, dwMinorVersion, Build]);
    end
    else
      Lable1.Caption := Format('%s', [PLATFORM_W9X]);
  end; 

Answer 1

var  OSVI          : OSVERSIONINFO ;
begin
  OSVI.dwOSVersionInfoSize := sizeof(OSVERSIONINFO) ;
  GetVersionEx(OSVI) ;
  if ( (OSVI.dwMajorVersion=4) and (OSVI.dwMinorVersion=10) ) then
    WindowsVersion := '98'
  else
    if ( (OSVI.dwMajorVersion=4) and (OSVI.dwMinorVersion=0) ) then
      WindowsVersion := 'NT'
    else
      WindowsVersion := '2000' ;
end;

Answer 2

也可以看一下：
C:\Program Files\Borland\Delphi6\Demos\CoolStuf\About.pas