AppleScript如何获得当前的显示分辨率？

tell application "System Events"
    set screenWidth to current screen's bounds width
    set screenHeight to current screen's bounds height
end tell

display dialog "屏幕分辨率为：" message screenWidth & " x " & screenHeight