Für jedes Fenster eigenen Taskbareintrag (Windows 7)

[Hedge]

Habe eine Applikation mit 2 Forms und möchte für beide einen einzelnen Taskbareintrag haben.

Dazu habe ich mehrere Sachen gefunden, aber keine funktioniert.

Erstmal:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    dwJumpLists1: TdwJumpLists;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  protected
      procedure CreateParams(var Params: TCreateParams);
  end;

danach dann:

Delphi-Quellcode:

procedure TForm1.CreateParams
   (var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle     or WS_EX_APPWINDOW;
end;

oder:

Delphi-Quellcode:

procedure TForm1.CreateParams(var Params : TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
  Params.Caption:='Title';
end;