怎么样窗口一直在桌面上,就像是桌面一样,其它窗口可以覆盖,但windows+D也清不了这个窗口?

procedure TForm1.FormShow(Sender: TObject);

var

  H: hWnd;

begin

  H := Windows.GetWindow(GetWindow(FindWindow('ProgMan',nil),GW_CHILD),GW_CHILD);

  Windows.SetParent(Handle, H);

end;