function GetLargeFonts: boolean; var
fontsize : integer;
hdc : Thandle; begin
result := false;
hdc := GetDc(hwnd_desktop);
fontsize := GetDeviceCaps(hdc,logpixelsx);
ReleaseDc(hwnd_desktop,hdc);
if fontsize = 96 then result := false
else if fontsize = 120 then result := true;
end;
fontsize : integer;
hdc : Thandle; begin
result := false;
hdc := GetDc(hwnd_desktop);
fontsize := GetDeviceCaps(hdc,logpixelsx);
ReleaseDc(hwnd_desktop,hdc);
if fontsize = 96 then result := false
else if fontsize = 120 then result := true;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货