Parsi Coders
سورس کد بدست اوردن سایز رزولیشن صفحه نمایش(دلفی) - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد بدست اوردن سایز رزولیشن صفحه نمایش(دلفی) (/showthread.php?tid=3166)



سورس کد بدست اوردن سایز رزولیشن صفحه نمایش(دلفی) - Amin_Mansouri - 05-01-2013

english:ScreenResolutionReturns the current screen resolution in a TSize record whose cx and cy fields give the screen width and height respectively.
Required units: Windows, Types.
با سورس زیر که با دلفی نوشته شده است میتونید رزولیشن صفحه نمایشتون رو بدست بیارید.
کد: 

کد:
function ScreenResolution: Types.TSize;
var
  DC: Windows.HDC;
begin
  DC := Windows.GetDC(Windows.HWND_DESKTOP);
  try
    Result.cx := Windows.GetDeviceCaps(DC, Windows.HORZRES);
    Result.cy := Windows.GetDeviceCaps(DC, Windows.VERTRES);
  finally
    Windows.ReleaseDC(0, DC);
  end;
end;