Hey!


Yes i found a new way to extract tray but i got a problem the background is kind of weird...(It updates fine and is full controlable);I figured this long ago but forgot..EnableBlurBehindWindow or Extendtoclient i used i dont konw but HELP!

Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('Shell_TrayWnd','');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'TrayNotifyWnd', nil);
    wndChild := FindWindowEx(wndChild, 0, 'SysPager', nil);
    wndChild := FindWindowEx(wndChild, 0, 'ToolbarWindow32', nil);
    if wndChild <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(wndChild));

      windows.SetParent(wndchild,form1.handle);
      EnableBlurBehindWindow(form1.Handle);

    end;
  end;

Although I have no solution for this, but before someone tried it!
...


Ich hab hierfür zwar keine Lösung, aber bevor es jemand ausprobiert!

Dieser Code klaut das TrayWindow aus der Taskleiste und demnach ist in der Taskleiste diesbezüglich nichts mehr bediehnbar.
Und noch schlimmer, wird das Programm beendet und das TrayWindow nicht zurückgegeben, dann wird dieses mit geschloßen.

The only problem i have is the weird background then its ready to transplantation on a new taskbar...

Ich habe das Nicht ausprobiert, da ich nicht daraus schlau geworden bin...
Aber mal fragen was Razor möchte darf man doch ?

Zitat von himitsu:

Although I have no solution for this, but before someone tried it!
...


Ich hab hierfür zwar keine Lösung, aber bevor es jemand ausprobiert!

Dieser Code klaut das TrayWindow aus der Taskleiste und demnach ist in der Taskleiste diesbezüglich nichts mehr bediehnbar.
Und noch schlimmer, wird das Programm beendet und das TrayWindow nicht zurückgegeben, dann wird dieses mit geschloßen.

No it WILL NOT be terminated becouse it will be a new taskbar..If you have a better idea how i should get system tray SPEAK UP!


Well yes i figured it out long time ago but i did use one of the functions to remove the background...

Create a new toolbar, which you can then sign themselves and clone the data from the other toolbar.

The background is painted by TrayNotifyWnd.
Log the messages to this window and see whether what the right thing is what you will still have to implement.


Before anyone tried the code above, then prefer to take this one, which the Toolbar is also released.
Bevor jemand den oberen Code ausprobiert, dann nehmt lieber diesen hier, welcher die Toolbar auch wieder freigibt.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    _window, _parent: HWND;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('Shell_TrayWnd','');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'TrayNotifyWnd', nil);
    wndChild := FindWindowEx(wndChild, 0, 'SysPager', nil);
    wndChild := FindWindowEx(wndChild, 0, 'ToolbarWindow32', nil);
    if wndChild <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(wndChild));
      _window := wndchild;
      _parent := windows.GetParent(_window);
      windows.SetParent(wndchild, form1.handle);
      //EnableBlurBehindWindow(form1.Handle);

    end;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  windows.SetParent(_window, _parent);
end;

Well the only problem is background...