delphi 程序嵌入桌面效果的实现

function Tform1.CreateRegion(wMask:TBitmap;wColor:TColor;hControl:THandle): HRGN;
var
dc, dc_c: HDC;
rgn: HRGN;
x, y: integer;
 coord: TPoint;
line: boolean;
color: TColor;
begin
dc := GetWindowDC(hControl);
dc_c := CreateCompatibleDC(dc);
SelectObject(dc_c, wMask.Handle);
BeginPath(dc);
for x:= to wMask.Width- do
begin
line := false;
for y:= to wMask.Height- do  begin
color := GetPixel(dc_c, x, y);
if not (color = wColor) then
begin
 if not line then
begin
line := true;
coord.x := x;
coord.y := y;
end;
end;
if (color = wColor) or (y=wMask.Height-) then
 begin
if line then
begin
line := false;
MoveToEx(dc, coord.x, coord.y, nil);
LineTo(dc, coord.x, y);
LineTo(dc, coord.x + , y);
LineTo(dc, coord.x + , coord.y);
CloseFigure(dc);
end;
end;
end;
end;  EndPath(dc);
rgn := PathToRegion(dc);
ReleaseDC(hControl, dc);
Result := rgn;
end;
procedure TForm1.FormCreate(Sender: TObject);
var  w1:TBitmap;
w2:TColor;
rgn: HRGN;
deskHandle, ProgmanH, ShellDllH, DeskopICOH: Thandle;
wc: TWinControl;
i: Integer;
begin i := ;
ProgmanH := FindWindow('Progman', 'Program Manager');
while (i < ) and (ProgmanH = ) do
begin
ProgmanH := FindWindow('Progman', 'Program Manager');
Inc(I); Sleep();
end;
if ProgmanH =  then Close;
if (ProgmanH <> ) and IsWindow(ProgmanH) and (GetParent(ProgmanH) = ) then
begin
ShellDllH := FindWindowEx(ProgmanH, , PChar('SHELLDLL_DefView'), '');
if ShellDllH <>  then
DeskopICOH := FindWindowEx(ShellDllH, , PChar('SysListView32'), 'FolderView');
if DeskopICOH <>  then
windows.SetParent(Self.Handle, DeskopICOH)
else
Close;
end;
w1:=TBitmap.Create;
 w1.Assign(image1.Picture.Bitmap);
w2:=w1.Canvas.Pixels[,];
// w2 := clWhite;
rgn := CreateRegion(w1,w2,Handle);
if rgn<> then
begin
SetWindowRgn(Handle, rgn, true);
end;
w1.Free;
end;