Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

System Tray 


Ewgenij   (2002-02-05 20:22) [0]

Как удалить часы из трея, или хотя бы скрыть их(из программы естественно ;))



Брыкун Дмитрий   (2002-02-05 20:43) [1]

var
h:hwnd;
tbuff,cbuff:array[0..100] of char;
.........
h:=findwindow(pchar("Shell_TrayWnd"),nil);
h:=getwindow(h,gw_child);
while h>0 do begin
getclassname(h,cbuff,sizeof(classbuff));
if cbuff="TrayClockWClass" then begin
showwindow(h,sw_hide);
exit;
end;
h:=getwindow(h,gw_hwndnext);
end;



Брыкун Дмитрий   (2002-02-05 20:54) [2]

Нет,не так!

var
h:hwnd;
cbuff:array[0..100] of char;
.........
h:=findwindow(pchar("Shell_TrayWnd"),nil);
h:=getwindow(h,gw_child);
while h>0 do begin
getclassname(h,cbuff,sizeof(cbuff));
if cbuff="TrayNotifyWnd" then begin
h:=getwindow(h,sw_child);
while h>0 do begin
getclassname(h,cbuff,sizeof(cbuff));
if cbuff="TrayClockWClass" then begin
showwindow(h,sw_hide);
exit;
end;
end;
end;
h:=getwindow(h,gw_hwndnext);
end;

Могу подкинуть неплохой исходник.



copyr25   (2002-02-05 22:34) [3]

Маааленькая очепятка в примере:))
var
h:hwnd;
cbuff:array[0..100] of char;
begin
h:=findwindow(pchar("Shell_TrayWnd"),nil);
h:=getwindow(h,gw_child);
while h>0 do begin
getclassname(h,cbuff,sizeof(cbuff));
if cbuff="TrayNotifyWnd" then begin
h:=getwindow(h,gw_child);
while h>0 do begin
getclassname(h,cbuff,sizeof(cbuff));
if cbuff="TrayClockWClass" then begin
showwindow(h,sw_hide);
exit;
end;
end;
end;
h:=getwindow(h,gw_hwndnext);
end;
end;



copyr25   (2002-02-05 22:50) [4]

Ну, а чтобы открыть вновь, конечно showwindow(h,sw_hide);



copyr25   (2002-02-05 22:52) [5]

меняем на sw_show




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.026 c
14-22804          Song                  2002-02-26 17:51  2002.04.08  
Скажите за что зацепиться. Нужно узнать выключен ли монитор.


3-22567           D'Aron                2002-03-15 15:22  2002.04.08  
ADO и MSSQL2000


1-22717           Great                 2002-03-25 19:34  2002.04.08  
Так что, никто не знает ? Ttabsheet и Drag & Drop


4-22875           Sava                  2002-02-06 14:39  2002.04.08  
WM_NCHITTEST и его сообщения?


1-22729           NS                    2002-03-27 04:43  2002.04.08  
Копирование файла