05-01-2013، 04:13 PM
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.
با سورس زیر که با دلفی نوشته شده است میتونید رزولیشن صفحه نمایشتون رو بدست بیارید.
کد:
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;