请问各位老大：如何判断当前计算机是服务器


procedure TForm1.ToolButton2Click(Sender: TObject);
var
   VI : TOSVersionInfo ;
begin
   vi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo)  ;
   GetVersionEx(vi) ;
   with vi,ListBox1.Items do
   begin
      //clear ;
  //  sosVer = '操作系统版本%d.%d'; 版本5为2000
  //  sBuildNo = 'Build Num. %d' ;
  //  SOSPlat = '执行平台 %s' ;
      add(format(sosver,[dwMajorVersion,dwMinorVersion])) ;
      add(format(sBuildNo,[loWord(dwBuildNumber)])) ;
      case DwPlatformID of
        Ver_Platform_win32s: add(format(sosPlat,[soswin32s])); //win32
        Ver_Platform_win32_windows: add(format(sosPlat,[soswin95]));//win95
        Ver_Platform_win32_NT: add(format(sosPlat,[soswinNT]));//nt /2000
      end;
   end;end;