Кнопка "Пуск"??Помогите

[artiom4356]

Скажу сразу, что писал прогу для того что бы блокировать, прятать и менять картинку на кнопке пуск. Но в итоге выполнил только половину задачи.
Сама кнопку выключается и включается но не как не хочет прятатся
Никто не подскажет в чём может быть дело
Вот код:

private
    StartBtnW, StartBtnB, StartBtnK,StartBtnL: hWnd;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(StartBtnB, BM_SetImage, 0, Image1.Picture.Bitmap.Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   EnableWindow(StartBtnB, false);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  EnableWindow(StartBtnB, true);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ShowWindow(StartBtnB, SW_HIDE);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 ShowWindow(StartBtnB, SW_SHOW);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
StartBtnW:=FindWindow(nil, 'Пуск');
StartBtnB:=FindWindowEx(StartBtnW, 0,'Button', nil);
StartBtnL:=FindWindowEx(StartBtnW, 0,'Image', nil);


end;

end.

[N0iD]

Приветствую. И так:

(Теми методами что вы описали)
1. Отключаем кнопку пуск.
2. Скрываем её.


(То что про меню пуск наверное даже можно в таймер кинуть ибо нефиг, иначе доступно меню через клавишу - win на клавиатуре)
3. Отключаем меню пуск - class DV2ControlHost
4. Скрываем меню пуск - class DV2ControlHost

5. Меняем left на (-21) - для - class ReBarWindows32.

Тем самым мы перекроем то место где остается картинка от кнопки пуск, и собственно говоря визуально прячем кнопку пуск.
Вуаля. Но опять же это костыль, но это рабочий костыль.