谢谢帮我解决这个Gina

Question

如这里所说，我会达成承诺给你200分。
http://topic.csdn.net/u/20090106/07/c476c735-5999-4091-a65b-604e608176d2.html
现在还有一个问题是如何才能使图片更清楚点?

Answer 1

procedure CtrlInput(Value: Bool); //控制用户输入
type
  PBlockInput = function(fBlockIt: BOOL): BOOL; stdcall;
var
  _ModuleHandle: Dword;
  _BlockInput: PBlockInput;
begin
  _ModuleHandle := GetModuleHandle('user32.dll');
  _BlockInput := GetProcAddress(_ModuleHandle, 'BlockInput');
  if @_BlockInput <> nil then _BlockInput(Value);
end;