Delphi 取得螢幕解析度：GetSystemMetrics 實作

現代顯示器解析度越來越高，程式常需知道解析度以合理安排視窗佈局。使用 GetSystemMetrics API 輕鬆取得：

var
  x: LongInt;
  a: string;
begin
  x := GetSystemMetrics(SM_CXSCREEN);
  Str(x, a);
  Label1.Caption := '水平解析度: ' + a;

  x := GetSystemMetrics(SM_CYSCREEN);
  Str(x, a);
  Label2.Caption := '垂直解析度: ' + a;
end;

SM_CXSCREEN 為水平像素寬度，SM_CYSCREEN 為垂直像素高度。