举个例子,禁止或允许开始按纽:
var
h:HWND;
procedure TForm1.Button6Click(Sender: TObject);
begin
h:=FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil);
EnableWindow(h,false);
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
h:=FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil);
EnableWindow(h,true);
end;