其实分辨率也可以用这个api:
function showfbl:string;
var gao,kuan:integer;
fenbianlv:string;
begin
gao:=GetDeviceCaps(getwindowdc(getdesktopwindow),VERTRES);//高
kuan:=GetDeviceCaps(getwindowdc(getdesktopwindow),HORZRES);//宽
fenbianlv:=inttostr(kuan)+'*'+inttostr(gao);
result:=fenbianlv;
end;