|
Zna li neko kako mogu da dobijem kolika mi je rezolucija na racunaru?
Pravim neko cudo, pa imam problema kada prebacim aplikaciju na drugu masinu, sa drugacijom rezolucijom.
Ako dobijem taj podatak onda bi to lako rjesio, procentima.
Hvala unaprijed.
Dopuna: 13 Dec 2007 14:41
Hvala, ako je neko pokusao, nasao sam.
Ali evo mpozda nekome zatreba :
PROCEDURE TMainForm.GetScreenResolution(VAR iPixels, jPixels: INTEGER);
VAR
DeviceContext: hDC;
BEGIN
// Get the screen's DC since memory DCs are not reliable
DeviceContext := GetDC(hWnd_DeskTop);
TRY
iPixels := GetDeviceCaps(DeviceContext, HORZRES);
jPixels := GetDeviceCaps(DeviceContext, VERTRES);
ShowMessage(IntToStr(iPixels));
ShowMessage(IntToStr(jPixels))
FINALLY
// Give back the screen DC
ReleaseDC(0, DeviceContext)
END
END {GetScreenResolution};
|
