[求助]如何实现下面的窗口功能

Question

该窗口总悬浮在目标程序上，目标程序隐藏该窗口也隐藏。
该窗口控制键盘事件但输入焦点在目标程序上。
附：目标程序指别的应用程序，尽量不要用hook，给源码者高分

Answer 1

该窗口总悬浮在目标程序上
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowPos( Handle,HWND_TOPMOST,
   Left,Top,Width,Height,SWP_SHOWWINDOW);  
end;
目标程序隐藏该窗口也隐藏（修改下边的参数应该可以用
var
  Wnd: HWND;
  lRet: Integer;
begin
  Wnd := FindWindow('主程序', '主程序');
  if Wnd > 0 then
  begin
    SetWindowPos(Wnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOSIZE
      or
      SWP_NOMOVE);
    ShowWindow(Wnd, SW_RESTORE);
  end

Answer 2

ShowWindow(Wnd, SW_RESTORE);中的SW_RESTORE改为：SW_HIDE则为隐臧

Answer 3

>>该窗口总悬浮在目标程序上，目标程序隐藏该窗口也隐藏。
SetParent
然後, 處理主窗口的消息就可!!