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;
 

相关阅读 >>

processid, process handle, window handle 之间的互相转换

Delphi中实现调整图像的色阶的算法

正则表达式初学入门

cnpack sqlite tool 2.04

Delphi捕获twebbrowser的close事件

Delphi tstreamreader 和tstreamwriter

Delphi给access创建数据表

Delphi d10.x安卓app开发中简单使用原生toast

Delphi webbrowser载入自定义html内容并显示

Delphi xe2支持zip压缩文件的操作了

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

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