1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  i : integer;
begin
  for i := ComponentCount - 1 downto 0 do
    if Components[i] IS TWinControl then begin
      (Components[i] AS TWinControl).Parent := NIL;
      (Components[i] AS TWinControl).ParentWindow := GetDesktopWindow;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var
  DeskWnd: HWnd;
  DeskDC: HDC;
  DeskCv: TCanvas;
  R: TRect;
  Bmp: TBitmap;
begin
  // BMP vorbereiten, z.B. Bild laden
  DeskWnd := GetDesktopWindow;
  DeskDC := GetWindowDC(DeskWnd);
  DeskCv := TCanvas.Create;
  DeskCv.Handle := DeskDC;
  R := Rect(0, 0, Screen.Width, Screen.Height);
  try
    Bmp.HandleType := bmDIB;
    Bmp.PixelFormat := pf24Bit;
    Bmp.Width := R.Right;
    Bmp.Height := R.Bottom;
    DeskCv.CopyMode := cmSrcCopy;
    DeskCv.CopyRect(R, Bmp.Canvas, R);
  finally
    DeskCv.Free;
    ReleaseDC(DeskWnd, DeskDC);
  end;
end;