在WIN2000中怎样屏蔽开始键？(40分)

在WIN2000中怎样屏蔽开始键？

SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @temp, 0);好像只对win98管用，
而对win2000无效.

procedure TForm1.Button1Click(Sender: TObject);
var
Rgn : hRgn;
begin
{Hide the start button}
Rgn := CreateRectRgn(0, 0, 0, 0);
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0,
'Button',
nil),
Rgn,
true);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
{Turn the start button back on}
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0,
'Button',
nil),
0,
true);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
{Disable the start button}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0,
'Button',
nil),
false);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
{Enable the start button}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0,
'Button',
nil),
true);
end

看看下面或许有用。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1464951

看上面的贴子，用键盘底层钩子实现。

那么怎样屏蔽Ctrl+Alt+Del呢？

屏蔽Ctrl+alt+del
用这个就行了。
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @temp, 0);

这个有代码可以参考下载

delphi源码下载站 http://www.8366.com