//屏蔽Ctrl+Alt+Del type TKeyState=(kbOn,kbOff); procedure SetSystemKey(value:TKeyState); var NoUse:integer; begin case value of kbOn:SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@NoUse,0); kbOff:SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@NoUse,0); end; end;
//屏蔽Ctrl+Alt+Del type TKeyState=(kbOn,kbOff); procedure SetSystemKey(value:TKeyState); var NoUse:integer; begin case value of kbOn:SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@NoUse,0); kbOff:SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@NoUse,0); end; end;
不过很多人是通过timer查找任务管理器然后发送wm_close消息来搞定的。
不过感觉不是很好。你找阿日问问。分多加点
//屏蔽Ctrl+Alt+Del
type
TKeyState=(kbOn,kbOff);
procedure SetSystemKey(value:TKeyState);
var
NoUse:integer;
begin
case value of
kbOn:SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@NoUse,0);
kbOff:SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@NoUse,0);
end;
end;
type
TKeyState=(kbOn,kbOff);
procedure SetSystemKey(value:TKeyState);
var
NoUse:integer;
begin
case value of
kbOn:SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@NoUse,0);
kbOff:SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@NoUse,0);
end;
end;