Used as so:Code:procedure GetResolution(var Width, Height : Integer); var previousClient, clientX, clientY : Integer; begin previousClient := GetClientWindowHandle; SetDesktopAsClient; GetClientDimensions(clientX, clientY); Width := clientX; Height := clientY; SetClientWindowHandle(previousClient); end;
I know it's crappy and I can do better than this, but it can be useful.Code:program GetResolutionExample; var resX, resY : Integer; begin GetResolution(resX, resY); Writeln(Format('Screen Dimensions : (%d, %d)', [resX, resY])); end.![]()


Reply With Quote









Or maybe just no use at all for SRL in mind.




