|
Как спрятать и отключить кнопку "Пуск"?Delphi , Рабочий стол , ПУСККак спрятать и отключить кнопку "Пуск"?
Приведенный пример прячет и показывает кнопку "Пуск", а также разрешает и запрещает ее.
Code: |
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 |
Статья Как спрятать и отключить кнопку "Пуск"? раздела Рабочий стол ПУСК может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: 2013-02-21 21:02:29 :: re:Как спрятать и отключить кнопку "Пуск"?пользователь: Fashick. На 7 винде не работает!!
:: Главная :: ПУСК ::
|
|
