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

[episome]

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

[fei19790920]

不可能，除非你重新做个窗口代替桌面！

[episome]

也可以,请问如何?

[fei19790920]

unit Unit1;

interface

uses
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控件，就成功了
现在的很多网管软件都是用这种方法，如万象、美萍

[zdq801104]

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

[立志做一个佳娃~]

呵呵，饭桶以前就是万象公司出来的哦!!~~~

[episome]

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

偶菜的很那.