eigenen tray-bereich programmieren

[eisblock]

Hallo Leute,

wollte mal fragen, ob ihr zufällig wisst, wie man eine eigene tray area programmieren kann.
Meine Frage ist, wie ich die Icons vom TrayNotifyWnd-Fenster auf mein Programm umleiten kann.
Vielleicht wisst ihr auch, wie man das TrayNotifyWnd-Fenster aus dem Shell_TrayWnd-Fenster abkapseln kann :) (das würde die neuprogrammierung des Traybereichs ersparen)

Ähm ja ich gebe zu das klingt jetzt etwas kryptisch, deshalb anbei ein Screenshot meines Desktops :)
hoffe, ihr versteht mich :gruebel: :dp:

Grüße,
jr

[s-off]

Zitat:

Zitat von eisblock

Vielleicht wisst ihr auch, wie man das TrayNotifyWnd-Fenster aus dem Shell_TrayWnd-Fenster abkapseln kann :) (das würde die neuprogrammierung des Traybereichs ersparen)

Klar :mrgreen:

Delphi-Quellcode:

Unit Unit1;

Interface

Uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls;

Type
   TForm1 = Class(TForm)
      Button1: TButton;
      Button2: TButton;
      Procedure Button1Click(Sender: TObject);
      Procedure Button2Click(Sender: TObject);
   private
      { Private-Deklarationen }
      OriginParent: Hwnd;
   public
      { Public-Deklarationen }
   End;

Var
   Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   OriginParent := Windows.GetParent(xxx);
   Windows.SetParent(xxx, Self.Handle);
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
   Windows.SetParent(xxx, OriginParent);
End;

End.

Edit:
xxx = Handle Deiner TNA

Edit2:
Hab mir gerade erst Deinen Anhang angesehen. Wenn Du

Delphi-Quellcode:

Windows.SetParent(xxx, Self.Handle);

ersetzt durch

Delphi-Quellcode:

Windows.SetParent(xxx, 0);

landet Deine TNA übrigens auf dem Desktop.

Edit3:
Was mir gerade noch einfällt:
Solltest Du die TNA auf Deine eigene Form packen, dann denke daran, beim Beenden Deiner Anwendung das Ganze wieder rückgängig zu machen (Button2Click) - ansonsten stehst Du ohne TNA da ;)
Obwohl man die auch irgendwie wieder herstellen kann; weiss allerdings aktuell nicht, wie.

Edit4: Rechtschreibfehler in Edit3 beseitigt

[eisblock]

hey danke erstmal für den guten Ansatz! Das ganze funktioniert auch mit der gesamten Taskleiste und sieht echt putzig aus =) aber wenn ich es nur auf die TNA anwende, verschwindet sie im Nirvana =(

[s-off]

Hmm,

bei mir gehts. Die TNA landet in der linken oberen Ecke des Desktops. Sicher, dass Du das korrekte handle hast, also das der Klasse 'ToolbarWindow32' mit dem Titel 'Infobereich'?

[eisblock]

ich benutze das handle kind:

elter := FindWindow('Shell_TrayWnd', nil);
kind := FindWindowEx(elter, 0, 'TrayNotifyWnd', nil);

[s-off]

Tipp: besorge Dir WinSpy und hol Dir darüber erstmal manuell das korrekte Handle, um zu sehen, ob es grundlegend funktioniert. Evtl. ist in Deiner Handle-Suche noch etwas nicht ganz korrekt.

Edit: Du bist noch nicht tief genug -> s. Screenshot

[eisblock]

Ich habe jetzt folgenden Code

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   OriginParent := Windows.GetParent(d);
   Windows.SetParent(d, 0);
End;


Procedure TForm1.Button2Click(Sender: TObject);
Begin
Windows.SetParent(d, OriginParent);

End;

procedure TForm1.FormCreate(Sender: TObject);
begin
a := FindWindow('Shell_TrayWnd', nil);
b := FindWindowEx(a, 0, 'TrayNotifyWnd', nil);
c:=FindWindowEx(b, 0, 'Syspager', nil);
d:=FindWindowEx(c, 0, 'ToolbarWindow32', 'Infobereich');

end;

und irgendwie klappt es immernoch nicht, obwohl er ein gültiges Handle liefert. Hm vielleicht sollte ich mich nochmal genauer mit Handles beschäftigen... was ist denn dein Handle-Suchcode?

[s-off]

Ich hab mir das Handle wie gesagt über WinSpy geholt, da ich keine Lust hatte, mich da durch zu hangeln.
Aber das hast Du ja jetzt für mich gemacht ;)

Habe also Deine Routine zur Ermittlung des Handles übernommen und es funktioniert bei mir -> die TNA wird beim Klick auf Button1 auf meine Form verfrachtet.

Beispielprojekt anbei.

[eisblock]

aaah es hat die ganze Zeit geklappt! Das Problem war nur: bei mir ist die Taskleiste oben. und deshalb hat sie auch wunderschön den TNA-Bereich überdeckt ^^ vielen Dank für deine Hilfe! =)

[thabaker]

Das funktioniert ja "nur" wenn auch die Taskleiste da ist, sprich der Explorer als Shell läuft, oder? Wenn ich jetzt hergehen würde und eine andere Shell benutze, wie erstelle ich dann "per Hand" eine TNA?
Muss ich dann diese Windows-Struktur selbst erstellen? :wiejetzt: