Delphi 锁定系统解锁系统

2022-12-27 09:20:00 网络 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 从 twebbrowser中获得当前输入处的链接

Delphi directx截图截本窗口的图

Delphi xe string与tstringbuilder的关系

Delphi 过滤所有空格的函数

Delphi twebbrowser 获取cookie

Delphi unigi unidbtreegrid展开叠起 unidbgrid自动调节列宽

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