Delphi 锁定系统解锁系统

本文整理自网络，侵删。

 
function BlockInput(fBlockInput: Boolean): DWORD; stdcall;external 'user32.dll';//delphitop.com

//点击按钮，系统会禁止一切输入操作，5秒后解除锁定。
procedure TForm2.Button1Click(Sender: TObject);

begin
  BlockInput(True);
  Label1.Caption := 'Blocked';
  Application.ProcessMessages;
  Sleep(5000);
  BlockInput(False);
  Label1.Caption := 'Unblocked';
end;
 

相关阅读 >>

Delphi 外挂编写的几个api函数

提供文件操作 单元

Delphi版进程间的相互调用与参数传递

Delphi中如何用一个按钮控制开与关两个状态

Delphi sqlite 简明上手指南

Delphi 禁止关机的代码

Delphi 截取绝对路径的文件名

Delphi messagebox 使用

Delphixe 如何调用stringtojstring

Delphi 反转内存的函数

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

转载请注明出处：木庄网络博客 » Delphi 锁定系统解锁系统