向桌面添加(替换) ListView控件

Question

得到桌面的句柄
请问怎么添加一个或替换他的 ListView 控件
tks

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
procedure WMWindowPosChanging( var Message: TWMWindowPosChanging);Message WM_WindowPosChanging;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
//设置为最底层
SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);//无标题栏
self.BorderStyle :=bsNone ;//覆盖桌面
Align :=alClient ;
end;procedure TForm1.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
  with Message.WindowPos^ do flags:=flags or SWP_NOZORDER;
  Message.result:=0;
end;end.然后在窗口上面放一个ListView控件，就成功了
现在的很多网管软件都是用这种方法，如万象、美萍

Answer 2

学习！fei19790920(饭桶的马甲（抵制日货））大哥，厉害！

Answer 3

昨天回去试了, 多谢饭桶.
不过怎么屏蔽 win+D 最小化等问题.
还有我是通过按钮事件触发的.怎么通过按钮还原回来呢?偶菜的很那.