关于只屏蔽(Ctrl+Alt+Ctrl)的程序

[天成01]

请那位高手帮忙 在Button1中编写屏蔽程序,在Button2中编写解除屏蔽程序.需原程序

[天成01]

在线等待望速进，解决将速给分

[Billy_Chen28]

Var
temp:integer;
begin
SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);
end;
当你要恢复功能键时用以下代码：
Var
Temp:integer;
begin
SystemParametersInfo(spi_screensaverrunning,0,@temp,0);
end;

[天成01]

上面的程序同时也屏蔽了win键，不是吗？

[huangrenguang]

var
tmp : integer;
begin
tmp :=0;
//屏蔽 Alt-Tab
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @tmp, 0);
//屏蔽 Ctrl-Alt-Del
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @tmp, 0);
end;