Extract Tray And set its new Parent...

[Razor]

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:

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;