delphi 锁定计算机,delphi 怎么锁定和解锁计算机

使用时定义一个TBevel控件，锁定鼠标实际上是将光标控制在这个TBevel区间内，也可以把光标控制在屏幕左上角一个点的位置：LockRect := Rect(0,0,1,1);

调试时要注意在程序中控制开启鼠标或键盘，否则输入设备都被封锁了，只有关电源重启．

procedure TForm1.LockKeyAndCursor(Lock: boolean);

var

LockRect: TRect;

begin

if Lock = True then

begin

LockRect := Rect(Form1.Left + bvLockCursor.Left,

Form1.Top + bvLockCursor.Top,

Form1.Left + bvLockCursor.Left + bvLockCursor.Width,

Form1.Top + bvLockCursor.Top + bvLockCursor.Height);

ClipCursor(@LockRect);

LockKey(True);

end

else

begin

FreeRect := Rect(0,0,Screen.Width,Screen.Height);

ClipCursor(@FreeRect);

LockKey(False);

end;

end;

procedure TForm1.LockKey(Lock: boolean);

var

temp: integer;

begin

if Lock = True then

begin

asm

IN AL,21H

OR AL,02H

OUT 21H,AL

end;

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0); //封锁组合键Ctrl+Alt+Del

end

else

begin

asm

IN AL,21H

AND AL,0FDH

OUT 21H,AL

end;

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0); //解开组合键Ctrl+Alt+Del

end;

end;

(以上代码出自大富翁)

取消

评论