Разрешение экрана монитора

int dpi1=Screen->PixelPerInch; // получим dpi1=96 (на моём мониторе)

int dpi2=sqrtl(1024*1024+768*768)/15.0; // получим dpi2=85.333

//ЭКРАН МОНИТОРА: ширина, высота, разрешение(вложенное и расчётное)
  HDC hDCScreen = GetDC(NULL);
  int Hpix = GetDeviceCaps(hDCScreen, HORZRES);//ширина экрана, pix
  int Vpix = GetDeviceCaps(hDCScreen, VERTRES);//высота экрана, pix
  int Hmm = GetDeviceCaps(hDCScreen, HORZSIZE);//ширина экрана, мм
  int Vmm = GetDeviceCaps(hDCScreen, VERTSIZE);//высота экрана, мм
  int Xdpi = GetDeviceCaps(hDCScreen, LOGPIXELSX);//разрешение экрана по ширине, dpi
  int Ydpi = GetDeviceCaps(hDCScreen, LOGPIXELSY);//разрешение экрана по высоте, dpi
  ReleaseDC(NULL, hDCScreen);
  double Hdpi=Hpix*25.4/Hmm; //разрешение экрана по ширине, dpi
  double Vdpi=Vpix*25.4/Vmm; //разрешение экрана по высоте, dpi
  ShowMessage("Hpix = "+IntToStr(Hpix)+
              "\nVpix = "+IntToStr(Vpix)+
              "\nHmm = "+IntToStr(Hmm)+
              "\nVmm = "+IntToStr(Vmm)+
              "\nHdpi = "+FloatToStr(Hdpi)+
              "\nVdpi = "+FloatToStr(Vdpi)+
              "\nXdpi = "+IntToStr(Xdpi)+
              "\nYdpi = "+IntToStr(Ydpi)
             );