AppBar mit SHAppBarMessage

[Alexander]

Hallo,
ich versuche gerade mein Form als AppBar darzustellen. Ich habe es jetzt geschafft, den "Platz" zu registrieren. Doch irgendwie will das Form da nicht rein gehen...
Hier mal mein Source:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 Result : Integer;
begin
 DAta.cbSize := SizeOf(TAppBarData);;
 Data.hWnd := Form1.Handle;
 Data.uCallbackMessage := WM_APPBAR;
 Data.uEdge := ABE_TOP;

 Data.rc.Left := 0;
 Data.rc.Top := 0;
 Data.rc.Right := 0;
 Data.rc.Bottom := 20;

 result := SHAppBarMessage(ABM_NEW, Data);

 if Result = 0 then
 begin
  ShowMessage('AppBar konnte nicht registriert werden');
  exit;
 end;
 SHAppBarMessage(ABM_QUERYPOS, Data);
 SHAppBarMessage(ABM_SETPOS, Data);

Ich habe natürlich auch schon gesucht, doch da habe ich nur Source gefunden, mit dem man den Platz reservieren kann, also so ähnlich wie ich das gemacht habe....Oder habe ich was falsch gemacht?
Da muss es sicherlich noch eine Funktion geben, die das Form dann darein setzt, oder?
Vielen Dank schon mal für eure Hilfe!!
Alexander