19 lines
415 B
Plaintext
19 lines
415 B
Plaintext
function setprocessdpiawareness(v);
|
|
begin
|
|
{**
|
|
@explan(说明)设置dpi感知,目前仅支持windows
|
|
@param(v) 0,1,2
|
|
**}
|
|
try //避免win7及一下版本错误
|
|
SetProcessDpiAwareness_sub(v);
|
|
except
|
|
end;
|
|
end
|
|
{$ifdef linux}
|
|
function SetProcessDpiAwareness_sub(v);
|
|
begin
|
|
|
|
end
|
|
{$else}
|
|
function SetProcessDpiAwareness_sub(v:integer):pointer;stdcall; external "Shcore.dll" name "SetProcessDpiAwareness";
|
|
{$endif} |