+- 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;