如果你想把这个功能干掉,用api函数都可以啊。
procedure TForm1.FormCreate(Sender: TObject); var tmp,Flag :integer;
begin
tmp := 0;
Flag := 1;
//屏蔽 Alt-Tab
SystemParametersInfo( SPI_SETFASTTA-SKSWITCH, Flag, @tmp, 0);
//屏蔽 Ctrl-Alt-Del
SystemParametersInfo( SPI_SCREENSAVERRU-NNING,Flag, @tmp, 0);
end;
当你要恢复功能键时用以下代码:
Flag := 0;
SystemParametersInfo(SPI_SCREENSAVERRU-NNING,Flag,@temp,0);