Форум: "WinAPI";
Текущий архив: 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
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c