Systray leeren/disablen

[PierreB]

Moin,

gibt es irgendeine Möglichkeit mit der ich alle Icons aus dem Systray entfernen und verhindern kann, dass sich neue Programme wieder in den Systray setzen ?
(Sprich also ich will da dauernd unten rechts nur die Uhr zu sehen ist)

Vielen Dank,

[Luckie]

Was für ein Windows=? Unter XP kannst du doch bestimmen, was angezeigt werden soll. Und was soll es bringen, wenn du generell alle Icons dort unten verschwinden läßt? Die Programme können ja dann nicht mehr bedient werden.

[Kernel32.DLL]

Zitat von Luckie:

Was für ein Windows=? Unter XP kannst du doch bestimmen, was angezeigt werden soll. Und was soll es bringen, wenn du generell alle Icons dort unten verschwinden läßt? Die Programme können ja dann nicht mehr bedient werden.

Vllt. nerven ihn die Icons einfach...

Aber wie Luckie schon sagte, man kann sie unter XP aus- und auch wieder einblenden.

[PierreB]

Zitat von Luckie:

Was für ein Windows=? Unter XP kannst du doch bestimmen, was angezeigt werden soll. Und was soll es bringen, wenn du generell alle Icons dort unten verschwinden läßt? Die Programme können ja dann nicht mehr bedient werden.

Ja unter XP aber hauptsächlich unter W2k. Bei XP kann ich zwar einstellen was ausgeblendet werden soll, aber beim Neustart sind die Einstellungen irgendwie wieder zurückgesetzt, d.h sie werden irgendwie nicht gespeichert.
Die Programme kann ich doch trotzdem noch bedienen indem ich die Anwendung einfach erneut aufrufe.
Mir geht es ja hauptsächlich um einige Anwendungen wie z.B. ZoneAlarm welches ich nicht aus dem Systray herausbekomme. Mich stören diese "Dinger" neben der Uhr einfach, ich will sie nicht.

[toms]

Sonst halt einfach das TNA per API verstecken...

[PierreB]

Zitat:

Sonst halt einfach das TNA per API verstecken...

Das hört sich wirklich super an, nur wie ?

[perle]

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd :=  FindWindow('Shell_TrayWnd', nil);
  wnd :=  FindWindowEx(wnd, 0, 'TrayNotifyWnd', nil);
  wnd :=  FindWindowEx(wnd, 0, 'SysPager', nil);  // Wenn die Uhr auch weg soll, diese Zeile weg lassen
  if wnd <> 0 then
  begin
    ShowWindow(wnd,SW_HIDE)
  end;
end;

[Schubi]

Bei den TuneUp Utilities 2004 kann man die Tray oder auch die Uhr einzeln deaktivieren. Geht wohl über Registry.

[PierreB]

Hallo,

so funktioniert es leider nicht:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
wnd: HWND;
begin
wnd := FindWindow('Shell_TrayWnd', nil);
wnd := FindWindowEx(wnd, 0, 'TrayNotifyWnd', nil);
wnd := FindWindowEx(wnd, 0, 'SysPager', nil); // Wenn die Uhr auch weg soll, diese Zeile
if wnd <> 0 then
begin
ShowWindow(wnd,SW_HIDE)
end;
end;

Da passiert gar nix.

Wenn ich diese Zeile weglasse,

Code:

 wnd := FindWindowEx(wnd, 0, 'SysPager', nil);

geht die Uhr samt allen Icons weg. Ich möchte aber das die Uhr da ist und die Icons weg sind...

[toms]

Mein WinSpy erzeugt folgenden Code:

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('Shell_TrayWnd','');
  wnd := FindWindowEx(wnd, 0, 'TrayNotifyWnd', nil);
  wnd := FindWindowEx(wnd, 0, 'SysPager', nil);
  wnd := FindWindowEx(wnd, 0, 'ToolbarWindow32', nil);
  if wnd <> 0 then
  begin
     ShowWindow(wnd, SW_HIDE);
  end;
end.