Programm in Desktop einbinden

[turboPASCAL]

Nun muss ich doch mal fragen, wie bekomme ich das Fenster hinter das Listview,
also zwischen SysListView32 und Wallpaper ("SHELLDLL_DefView") ?

Das währe ja eine tolle Sache...

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    { Protected declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
var hw: HWND;
begin
  inherited CreateParams(Params);

  hw := FindWindow('SHELLDLL_DefView', nil);

  Params.WndParent := getdesktopwindow;
                            {hw -  funktioniert nicht
                            dann meckert das Programm das
                            es kein Hauptfenster hat}


  Params.Style := {WS_POPUP or} WS_CHILD;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AlphaBlend := True;
  AlphaBlendValue := 180;
end;