屏蔽按钮 ( 积分: 200 )

如何屏蔽start按钮

如何屏蔽start按钮

很简单
找到对应的句柄，disable即可
分为两步：
1.将start位置移走
2.屏蔽win键

http://www.delphibbs.com/delphibbs/dispq.asp?lid=362193
请问如何屏蔽[开始]键(在CSDN上至今末解决)

买就送￣￣：）
禁止任务栏：
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil)))
隐藏开始按钮：
var
rgn:hrgn;
Rgn := CreateRectRgn(0, 0, 0, 0);
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),Rgn, true);
显示开始按钮：
{Turn the start button back on}
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),0,true);
禁止开始按钮：
{Disable the start button}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0, 'Button', nil),false);
允许开始按钮：
{Enable the start button}
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),true);
//屏蔽 Alt-Tab
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @tmp, 0);
//屏蔽 Ctrl-Alt-Del
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @tmp, 0);
　

这里也有相应的：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2164775

2.
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;

多人接受答案了。