Form Full Screen Menutupi Taskbar Delphi

Tambahkan 1 Form dan 1 Tombol, langsung copas saja kodenya.. :D

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, StdCtrls;<br /><br />{$J+} //writeable constants on<br />const<br />  rec: TRect = (Left:0; Top:0; Right:0; Bottom:0);<br />  ws : TWindowState = wsNormal;<br />{$J-} //writeable constants off <br /><br />type<br />  TForm1 = class(TForm)<br />    btn1: TButton;<br />    procedure btn1Click(Sender: TObject);<br />    procedure FormCreate(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />procedure TForm1.btn1Click(Sender: TObject);<br />begin<br />  Application.Terminate;<br />end;<br /><br />procedure TForm1.FormCreate(Sender: TObject);<br />var<br />  r : TRect;<br />begin<br /><br />  if BorderStyle <> bsNone then<br />  begin<br />    ws := WindowState;<br />    rec:= BoundsRect;<br /><br />    BorderStyle := bsNone;<br />    r := Screen.MonitorFromWindow(Handle).BoundsRect;<br />    SetBounds(r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top) ;<br />  end<br />  else<br />  begin<br />    BorderStyle := bsSizeable;<br />    if ws = wsMaximized then<br />      WindowState := wsMaximized<br />    else<br />      SetBounds(rec.Left, rec.Top, rec.Right-rec.Left, rec.Bottom-rec.Top) ;<br />  end;  <br />end;<br /><br />end.