SHAppBarMessage Problem

[Zeitkritiker]

Hab schon wieder ein Problem, dass im Forum angesprochen wurde und ich wieder nicht durchblicke. Und zwar habe ich folgenden code genommen:

Code:

procedure TForm1.FormActivate(Sender: TObject);
begin
DAta.cbSize := SizeOf(TAppBarData);;
Data.hWnd := Form1.Handle;
Data.uEdge := ABE_TOP;

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

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);
end;

nun möchte ich aber form1 in den freigegebenen platz auf den desktop haben. wie kann ich das machen. hab irgendwie gelesen mit MoveWindow() ? oder wie geht das?