请问怎么得到当前windows所用的解析度？

Question

谢谢

Answer 1

用GetSystemMatrics
查一下msdn

Answer 2

var
  sx, sy: Integer;
begin
  sx := GetSystemMetrics(SM_CXSCREEN); //分辨率宽
  sy := GetSystemMetrics(SM_CYSCREEN); //分辨率高
  showmessage(inttostr(sx)+'*'+inttostr(sy));  end;

Answer 3

var devM:_deviceModeA;i:integer;
begin    i:=0;
    Memo1.Lines.Add('所有可用的分辨率'#13'颜色数'#9#9'分辨率');
    while true do
    begin
        if EnumDisplaySettings(nil,i,devM)=false then break;
        Memo1.Lines.Add(Format('%d'#9#9'%d * %d',[Trunc(IntPower(2,devM.dmBitsPerPel)),devM.dmPelsWidth,devM.dmPelsHeight]));
        Inc(i);
    end;    // while
    Memo1.Lines.Add(Format('当前分辨率: %d * %d',[GetSystemMetrics(SM_CXFULLSCREEN),GetSystemMetrics(SM_CYFULLSCREEN)]))

Answer 4

var devM:_deviceModeA;i:integer;
begin    i:=0;
    Memo1.Lines.Add('所有可用的分辨率'#13'颜色数'#9#9'分辨率');
    while true do
    begin
        if EnumDisplaySettings(nil,i,devM)=false then break;
        Memo1.Lines.Add(Format('%d'#9#9'%d * %d',[Trunc(IntPower(2,devM.dmBitsPerPel)),devM.dmPelsWidth,devM.dmPelsHeight]));
        Inc(i);
    end;    // while
    EnumDisplaySettings(nil,-1,devM);
    Memo1.Lines.Add(Format('当前分辨率: %d * %d',[devM.dmPelsWidth,devM.dmPelsHeight]))

Answer 5

Eastunfail(恶鱼杀手):
   不介意我借用你的代码并做一些修改吧:)

Answer 6

支持 ： older(疲倦的程序员) 
screen.width,screen.height
最简单