怎样屏蔽掉开始按钮？

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键还是可以弹出开始菜单的。