怎样屏蔽掉开始按钮？

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

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

注意：如果按win键还是可以弹出开始菜单的。

补充：软件开发 , Delphi ,

上一个：控制面板的编程
下一个：怎样屏蔽或打开windows里的快捷键