Bis auf den startbutton - taskleiste verstecken

[jfheins]

erstens: Daran arbeite ich noch ...

zweitens: ersteht zwar auch im Memo, aber bitte:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow('Shell_TrayWnd','');
  wnd := FindWindowEx(wnd, 0, 'Button', nil);
  if wnd <> 0 then
  begin
     Edit1.Text := IntToStr(wnd);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Windows.SetParent (strtoint (Edit1.Text), Panel1.Handle);
  SetWindowPos(strtoint (Edit1.Text), 0, 50, 50, 0, 0, SWP_NOSIZE);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow('Shell_TrayWnd','');
  if wnd <> 0 then
  begin
    SetWindowPos(strtoint (Edit1.Text), 0, 0, 0, 0, 0, SWP_NOSIZE);
    Windows.SetParent (strtoint (Edit1.Text), wnd);
  end;
end;