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 关于动态数组指针操作的两个例子

Delphi ip编辑控件

Delphi 新版内存表 fdmemtable

Delphi tstringlist自定义排序

在rad studio Delphi或c++安卓应用中使用自定义java库

Delphi android 获取通�记录

Delphi xe6、xe5、xe7在android创建快捷方式

Delphi 删除文件的函数

Delphi 每年、月、周、日的开始与结束的时间

Delphi 获取屏幕缩放比例

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

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