Delphi 检查屏幕是否处于锁屏或关闭状态

本文整理自网络，侵删。

 
主要解决的问题是：在屏幕处于锁屏或关闭状态下，无法正常显示MessageDlg

procedure WaitUntilScreenIsActive;
begin
  while True do
  begin
    Application.ProcessMessages;
    if isScreenOn and isKeyguardunLock then
     Break;
  end;
end;

function isScreenOn : Boolean;
var
  Native:JObject ;
  PowerManager : JPowerManager;
begin
  Native:=SharedActivityContext.getSystemService(TJContext.JavaClass.POWER_SERVICE);
  if not Assigned(Native) then
  begin
    raise Exception.Create('Could not locate Connectivity Service');
  end;
  PowerManager := TJPowerManager.Wrap((Native as ILocalObject).GetObjectID) ;
  if not Assigned(PowerManager) then
    Result := True
  else
    Result := PowerManager.isScreenOn;
  Native:=SharedActivityContext.getSystemService(TJContext.JavaClass.KEYGUARD_SERVICE);
end;

function isKeyguardunLock : Boolean;
var
  Native:JObject ;
  KeyguardManager : JKeyguardManager;
begin  Native:=SharedActivityContext.getSystemService(TJContext.JavaClass.KEYGUARD_SERVICE);
  if not Assigned(Native) then
  begin
    raise Exception.Create('Could not locate Connectivity Service');
  end;
  KeyguardManager := TJKeyguardManager.Wrap((Native as ILocalObject).GetObjectID) ;
  if not Assigned(KeyguardManager) then
    Result := True
  else
    Result := not KeyguardManager.isKeyguardLocked;

end;
来源：https://www.cnblogs.com/dannylee/p/7656656.html
 
 

相关阅读 >>

Delphi 任务管理器 获取窗口标题 获取窗口图标

Delphi 用空格把 s 凑够 n 的长度

Delphi 查询当前目录下文件名是否存在

Delphi 从数组中任取一个

Delphi spcomm控件的安装

Delphi 中format的字符串格式化使用说明

Delphi 线程教学第一节：初识多线程

Delphi学习之资源文件dll的制作及使用

Delphi调用createprocess创建进程

Delphi 错误no ftp list parsers have been registered

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 检查屏幕是否处于锁屏或关闭状态