function tsplit.GetLargeFonts: boolean;
var
function Tform1.getfontsize: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;
var
function Tform1.getfontsize: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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货