当前系统信息

function getSystemInfo : string;
var
  midStr : string;
begin
  case Win32Platform of
    VER_PLATFORM_WIN32_WINDOWS : midStr := 'Windows 9x';

    VER_PLATFORM_WIN32_NT : midStr := 'Windows NT';

  end;
  if Win32MajorVersion >= 5 then
  begin
    case Win32MinorVersion  of
    0    : midStr := 'Windows 2000';
    1    : midStr := 'Windows XP';
    end;
  end;

  midStr := midStr + (' Running on Windows:'+IntToStr (Win32MajorVersion)+'.'

               + IntToStr (Win32MinorVersion)+

               ' ((Build '+IntToStr (Win32BuildNumber)+ ')'+#10#13 +'Update:'+Win32CSDVersion);
  result := midStr;
end;