anchor.diff:    // FindTaskBar returns the Task Bar's position, and fills in
     // ARect with the current bounding rectangle.
     function FindTaskBar(var aRect: TRect): Integer;
  +  {$IFDEF MSWINDOWS}
     var	AppData: TAppBarData;
  +  {$ENDIF}
     begin
       Result := -1;
  +    {$IFDEF MSWINDOWS}
       // 'Shell_TrayWnd' is the name of the task bar's window
       AppData.Hwnd := FindWindow('Shell_TrayWnd', nil);
       if AppData.Hwnd <> 0 then
  
positive.code: {$I KaM_Remake.inc}
  interface
  uses
    Classes, ComCtrls, Controls, Buttons, Dialogs, ExtCtrls, Forms, Graphics, Math, Menus, StdCtrls, SysUtils, StrUtils, ShellAPI,
    KM_RenderControl, KM_Settings,
    {$IFDEF FPC} LResources, {$ENDIF}
    {$IFDEF MSWindows} Windows, Messages; {$ENDIF}
    {$IFDEF Unix} LCLIntf, LCLType; {$ENDIF}
  
  
  
negative.code:         aRect := AppData.rc;
        end;
      end;
      {$ENDIF}
    end;
  var
    Wp: TWindowPlacement;
  