Delphi 在桌面中嵌入窗体

-----------开发环境Delphi7--------------------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrm_210907 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_210907: TFrm_210907;

implementation

{$R *.dfm}

procedure TFrm_210907.Button1Click(Sender: TObject);
var
  TmpHandle,TmpHandle2:HWND;
begin
  TmpHandle:=FindWindow('Progman',Nil);//桌面第三层
   //TmpHandle:=GetWindow(TmpHandle,GW_OWNER);
   //GetLastError;
  TmpHandle:=GetWindow(TmpHandle,GW_CHILD);//桌面第二层
  //TmpHandle:=GetWindow(TmpHandle,GW_CHILD); //桌面第一层
  //showmessage(IntToStr(TmpHandle));显示桌面第二层的句柄
  Frm_210907.ParentWindow:=TmpHandle;//把窗体的拥有者指定为第二层
  Frm_210907.Top:=0; //把窗体放在左上方
  Frm_210907.Left:=0;

  TmpHandle2:=FindWindow('Progman',Nil);
  TmpHandle2:=GetWindow(TmpHandle2,GW_CHILD);//桌面第二层
  TmpHandle2:=GetWindow(TmpHandle2,GW_CHILD);//桌面第一层
  MoveWindow(TmpHandle2,0,200,1024,740,True);//桌面把第一层：Left:=0 ; Top:=200 ,Width:=1024 , Height:=740 ;True的意思就是重画当前桌面第一层
end;

procedure TFrm_210907.Button2Click(Sender: TObject);
var
  TmpHandle:HWND;
begin
  //恢复桌面
  TmpHandle:=FindWindow('Progman',Nil);
  TmpHandle:=GetWindow(TmpHandle,GW_CHILD); //桌面第二层
  TmpHandle:=GetWindow(TmpHandle,GW_CHILD); //桌面第一层
  //MoveWindow(TmpHandle,0,20,1024,740,False);
  MoveWindow(TmpHandle,0,0,Screen.Width ,Screen.Height,True); //Button1改变了桌面第一层，Button2恢复桌面第一层 //也可以利用任务管理器，先关闭Explorer.exe，然后再在任务管理器中点击文件下的新建任务，输入Explorer后点击确定
end;

procedure TFrm_210907.Button3Click(Sender: TObject);
begin
 Frm_210907.ParentWindow:=GetDesktopWindow; //把桌面设置为容器
end;

procedure TFrm_210907.Button4Click(Sender: TObject);
begin
  Frm_210907.ParentWindow:=strtointdef(Edit1 .text,0 );//指定容器
end;

end.

object Frm_210907: TFrm_210907
  Left = 503
  Top = 225
  Width = 728
  Height = 675
  Caption = 'Frm_210907'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 96
    Top = 224
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 104
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 200
    Top = 168
    Width = 121
    Height = 21
    ImeName = '中文(简体) - 搜狗拼音输入法'
    TabOrder = 2
    Text = 'Edit1'
  end
  object Button3: TButton
    Left = 112
    Top = 344
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 336
    Top = 168
    Width = 75
    Height = 25
    Caption = 'Button4'
    TabOrder = 4
    OnClick = Button4Click
  end
end

----资料--------资料来源-------------

delphi 在桌面中嵌入窗体  http://www.delphitop.com/html/xitong/2007.html

前几天在网上看到一个软件的介绍：可以嵌入桌面，即使是“显示桌面”也不会影响此程序。看作者说的好像有多么的神奇一样。周未就回来试一下。最后发现，Windows这个桌面还真是复杂和有意思。
　　首先要分析Windows桌面。
　　打开老牌软件"Spy Window"。查看一下桌面。取得一个“SysListView32”类的句柄(本系统为XP版本)。将其最小化，可以看出刚才取得的控件好像是透明的。因为将其最小化之后，还可以看到你所设置的桌面图片。
　　重新用"Spy Window"获取桌面上的控件句柄(也可以直接点击"Parent Window"取得其父窗口句柄)，得到一个"SHELLDLL_DefView"类的句柄。将其最小化,可以看到桌面图片依然存在，难道又是一个透明控件吗？先不理会它，我们继续向“下”找。再一次取得“桌面”上一个类名为“Progman”的控件句柄。而且此时你会发现Spy Window的"Parent Window"按钮已不可用了。
　　这个类为“Progman”的窗口“下面”真的没有其它窗口了吗？按“Ctrl+Alt+Del“在任务管理器里结束“explorer”，后再使用“Spy Window”看一下，是不是又有一个类名为“#32769”的窗口出了。试着对此窗口进行禁用，最小化，隐藏操作试一下。好像一切都是无效的。
　　到此为至，应该说把这张桌面的结构搞清楚了。相当于图像处理中的四个图层，而且是透明图层。
　　按类名由前至里的排序为：
　　SysListView32
　　SHELLDLL_DefView
　　Progman
　　#32769
　　看来这个桌面果然不是一般的复杂。
　　回忆一下以前用代码来隐藏桌面的操作：
　　FindWindow(''''Progman'''',Nil);
　　ShowWindow(...);
　　这里的''''Progman''''就是第三层(本文中我们就以层来称呼它们)的窗口了。在结束进程“Explorer”时，此窗口消失，说明此窗口是由“Explorer.exe”建立的。
　　下面进行将程序嵌入到桌面里的操作。
　　这里所需要的只有一个语句：
　　FrmMain.ParentWindow:=ParentHandle;其中，ParentHandle是你所要嵌人的控件句柄。
　　按此实现，可以建立一个窗体，拖入一个TButton,一个TEdit。在Button的Click事件中写入代码FrmMain.ParentWindow:=StrToInt(EdtHandle.Text);
　　下面，先来嵌入“第一层桌面”看一下。用"Spy Window”取得当前桌面句柄,也就是第一层''''SysListView32''''。转为十进制后复制到EdtHandle。点击按钮。
　　程序是不是转为非焦点状态了。按一下“Win+D”(显示桌面)。是不是窗口仍停留在桌面上。
　　好像文章开头的目的已经实现了。
　　仔细测试一下当前的窗体，是不是与原来有很大的不同。首先，窗口的标题栏总是非焦点状态。第二窗体上的右击被桌面拦截了下来。
　　第三Edit里表显不出TEdit本身对消息的响应。如点击时，拖动时，按键时右击时，Edit缺少相应的闪烁输入光标，抹黑所选字符，文字处理，显示上下文菜单等。这是因为窗体得不到焦点，而得不到焦点对于TEdit控件来说，一切都是无效的。
　　动态取得第一层控件句柄的方法是：
　　TmpHandle:=FindWindow(''''Progman'''',Nil);
　　TmpHandle:=GetWindow(TmpHandle,GW_CHILD);
　　TmpHandle:=GetWindow(TmpHandle,GW_CHILD);
　　此时TmpHandle即是桌面的句柄了。
　　依照此方法，我们可以将窗体嵌入第二层''''SHELLDLL_DefView''''了。当嵌入第二层时，你会发现。所嵌入的程序窗口不见了。当我们把第一层最小化时，可以看到我们所嵌入的窗口是存在的。只是被第一层所遮住了。所以说，第一层并不是透明的！
　　第一层最小化之后，可以看到，桌面上的图标都不见了。再看一下第一层的类名“SysListView32”，可以确定，第一层这个控件的作用主要就是列出系统桌面上的图标。我们在当前第二层中点击一下右键。桌面菜单出来了吧？原来一切的消息及处理都是在这一层接收和处理的。这时可以用“新建”命令新建一个文档，之后再恢复第一层桌面，可以看到，新建的文档出现了。
　　可以这样理解，第一层是“显示层”，第二层是“功能层”。我们的窗体在这里是显示不出来的。而且同样得不到焦点。
　　现在，将我们的程序嵌入到第三层''''Progman'''',嵌入之后，出现了和第二层相同的结果，按功能来说这一层应该没有什么实际的用途，可能只是给上面两层提供一个容器。现在''''Progman''''中有了两个窗体，一个是原有的''''SHELLDLL_DefView''''，另一个便是这个嵌入窗体。但是前者用尽了所有的可视区域，所以才使得嵌入的窗体显示不出来。这种情况似乎平时也会遇到，那我们在嵌入时加入一句:BringWindowToTop(FrmMain.Handle);试试；
　　呵呵，看到了什么？是不是嵌入的窗口出现了？按一下"Win+D"看一下。如何？还在吧？如果桌面上有图标的话，此时这个窗体应该是挡遮住了一部分图标的。
处理的办法就是将上一层窗体缩小。如：
　　TmpHandle:=FindWindow(''''Progman'''',Nil);
　　TmpHandle:=GetWindow(TmpHandle,GW_CHILD);
　　MoveWindow(TmpHandle,0,20,1024,740,False);
　　这样，在窗体顶部留出了二十象素的高度。可以放一个任务栏式的窗体了。
　　现在只剩下最后一层"#32769"了。只要在系统登陆前的启动程序不变，此窗口的句柄应该是不变化的（有可能系统登陆前启动的程序有变化此句柄也不变，具体情况没试过）。
　　按前面的方法将窗体嵌入到此窗口中。
　　窗体又是得不到焦点的状态了。可以看出来这和嵌入到第一层差不多。但是我们拖动一下窗体看一下。此时窗体并不是实时跟随鼠标的。再仔细看一下，任务栏上出现了两个此程序的按钮。一个是程序的名称，一个是窗口的名称。这是一种奇怪的现象，从来没有见过的。或许我们可以这样解释它。Explorer会将符合要求的窗体显示在任务栏上（非ToolsWindows，并且可见）。本窗体就符合，而且Explorer又会将窗口"#32769"里的所有窗口放到任务栏上而不管它是否复。所以才会得到此结果。
　　总结一下：
　　Windows的桌面是分四层的。嵌入的窗体如果嵌入到第三层，并将Z轴顺序移到最上的话，程序就会一个正常的嵌入桌面的程序。这符合我们的要求。而且可以通过调整第二层的大小来使窗体不遮住桌面图标。所以，将窗体嵌入到此是很理想的。
　　第一层的嵌入也是可以的。但是在这里窗体会得不到焦点和使用不了右键。所以这里的窗体受很多限制。
　　第二层是一个根本不考虑嵌入窗体的地方，因为这里的窗体根本显示不出来。而且与第一层相同的得不到焦点。
　　第四层是个意外的层。嵌在这里的窗体会表显出异样的情况。唯一值得我们嵌入的理由是：它不会随Explorer.exe进程的结束而关闭。

用mfc实现就是这样的代码
HWND hDesktop = ::FindWindow("Progman", NULL);
hDesktop = ::GetWindow(hDesktop, GW_CHILD);
CWnd* pWndDesktop = CWnd::FromHandle(hDesktop);
this->SetParent(pWndDesktop);

---资料-------------