Как спрятать и отключить кнопку "Пуск"?

Материал из DRKB

Как спрятать и отключить кнопку "Пуск"?[править | править код]

Приведенный пример прячет и показывает кнопку "Пуск", а также разрешает и запрещает ее.

procedure TForm1.Button1Click(Sender: TObject);
var
  Rgn: hRgn;
begin
  { Cпрятать кнопку "Пуск" }
  Rgn := CreateRectRgn(0, 0, 0, 0);
  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), Rgn, True);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  { Показать кнопку "Пуск" }
  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), 0, True);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  { Запретить кнопку "Пуск" }
  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), False);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  { Разрешить кнопку "Пуск" }
  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), True);
end;


ID: 01797