'시작' 버튼을 막기 위한 방법을 구현중입니다.
여러 책과 포럼의 Q&A를 참고하니
두 가지 스타일의 막는 방법이 있었습니다.
그런데 두가지 스타일 모두 마우스를 통한 시작키 클릭을 막는 것이지
키보드로는 막히지가 않습니다.
버튼이 비활성화나 보이지 않는 경우 모두 키보드를 통한 전달은 인식이 되어버립니다.
막을 방법을 좀 도와 주십시요...


*********************************************************
1번 스타일
procedure TForm1.Button1Click(Sender: TObject);
Var
  Rgn : hRgn;
  Show:Boolean;
begin
  Rgn:= CreateRectRgn(0, 0, 0, 0);
  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', Nil), 0, 'Button', Nil), Rgn, True)
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Enable:Boolean;
begin
  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', Nil),0,'Button',Nil),False);
end;

*********************************************************
2번 스타일
procedure TForm1.Button3Click(Sender: TObject);
var
  Enable:Boolean;
begin
  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', Nil),0,'Button',Nil),True);
end;

procedure TForm1.Button4Click(Sender: TObject);
Var
  Rgn : hRgn;
  Show:Boolean;
begin
  Rgn:= CreateRectRgn(0, 0, 0, 0);
  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', Nil), 0, 'Button', Nil), 0, False);
end;
*********************************************************