帮忙看个例子

在一个FORM上放两个按钮，然后按钮一实现对系统功能键的屏蔽；按钮2则实现取消对系统功能键的屏蔽。我试了一下，怎么效果没出来？
//代码如下：
procedure TForm1.Button1Click(Sender: TObject);
Var tempint :integer;
//屏蔽系统功能键
begin
systemparametersinfo(spi_screensaverrunning,1,@tempint,0);
end;procedure TForm1.Button2Click(Sender: TObject);
Var tempint :integer;
//取消屏蔽系统功能键
begin
systemparametersinfo(spi_screensaverrunning,0,@tempint,0);
end;