请问如何取得屏莫的分辩率啊？

Question

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;

Answer 1

IE收藏夹目录
function TMainForm.GetFavDir: String;
//获得收藏夹的目录
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False) then
       Result :=Reg.ReadString('Favorites');
  finally
    Reg.CloseKey;
    Reg.Free;
  End;
end;

Answer 2

Edit1.Text :=inttostr(GetSystemMetrics(0))+'*'+inttostr(GetSystemMetrics(1));

Answer 3

我想说的goodhazel(小猪)都说完了.