怎样屏蔽掉开始按钮(0分)

怎样屏蔽掉开始按钮？ [关键字: DELPHI]

最后出处：http://www.csdn.net 作者：不祥 收录于：2001年11月28日

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;