Спрятать — запретить кнопку «Пуск» в Delphi

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;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (12 оценок, среднее: 4,92 из 5)
Загрузка...
Добавить комментарий