Как спрятать и отключить кнопку "Пуск"?
Материал из 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