如何实现屏幕锁屏?

Question

网上有好多锁屏幕软件,象艾克屏幕锁等,这是用什么方法实现的?

Answer 1

专门有限制鼠标在某一区域的API函数

Answer 2

function BlockInput(fBlockInput: Boolean): DWORD; stdcall; external 'user32.DLL'; {block input/ blockieren} procedure TForm1.Button1Click(Sender: TObject); 
begin 
  BlockInput(True); 
end; {Unblock input / Blockierung aufheben} procedure TForm1.Button2Click(Sender: TObject); 
begin 
  BlockInput(False); 
end;