|
|
Как скрыть часики в панели задач
Убираем часики:
procedure TForm1.Button1Click(Sender: TObject);
var hn : HWnd;
begin
hn := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil);
if hn <> 0 then
ShowWindow(hn,SW_HIDE);
end;
Снова показываем:
procedure TForm1.Button2Click(Sender: TObject);
var hn : HWnd;
begin
hn := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil);
if hn <> 0 then
ShowWindow(hn,SW_SHOW);
end; |
| Категория: Примеры на Delphi7 | Добавил: DelphiAiX (28.07.2011)
|
| Просмотров: 836
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
