DELPHI FAQ: Как скрыть часики в панели задач?
Как скрыть часики в панели задач?
Previous
Home
Next
Убираем часики:
procedure
TForm1.Button1Click(Sender: TObject);
var
hn: HWnd;
begin
hn := FindWindowEx(FindWindowEx(FindWindow(
'Shell_TrayWnd'
,
nil
),
0
,
'TrayNotifyWnd'
,
nil
),
0
,
'TrayClockWClass'
,
nil
);
//die Uhr
if
hn <>
0
then
ShowWindow(hn, SW_HIDE);
//Bye,bye,Baby
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);
//Hello, again
end
;
Взято с Исходников.ru
http://www.sources.ru
DELPHI FAQ
