任务栏隐藏后，怎样使得当前程序运行为全屏幕方式？？？(50分)

希望那位大哥能将任务栏的隐藏及程序运行全屏幕的代码告诉我！谢谢

>任务栏的隐藏：
; 请参考 ;http://www.delphibbs.com/delphibbs/dispq.asp?lid=400591

>程序运行全屏幕：
; MainForm.WindowState :=wsMaximized;
; 或者参考 ;http://www.delphibbs.com/delphibbs/dispq.asp?lid=530711

隐藏任务栏：ShowWindow(FindWindow('Shell_TrayWND',nil),SW_HIDE);
全屏:
; Height := screen.height;
; Width := screen.width;
; Position :=poScreenCenter;
用wsMaximized覆盖不了任务栏的区域.

这个问题实在是问了无数遍了,你当我是搬运工吧。[]

这是我的代码，我尝试了 n 种方法以后得出的结论是这种方法最好：

procedure TFormMain.SetIsFullScreen(value: boolean);
Const
; OldWindowState ;: TWindowState = wsNormal;
; VisibleStatusBar: boolean = true;
; OldWindowStyle ;: integer = 0;
begin
; if value then
; begin
; ; LockWindowUpdate(Handle);
; ; OldWindowState ;:= WindowState;
; ; VisibleStatusBar:= StatusBar.Visible;

; ; StatusBar.Visible:= false;
; ; CoolBar.Visible ;:= false;
; ; PanelFullScreen.Visible := true;

; ; OldWindowStyle:= GetWindowLong(Handle, GWL_STYLE);
; ; SetWindowLong(Handle, GWL_STYLE, OldWindowStyle and Not(WS_CAPTION));
; ; Height:= Height - GetSystemMetrics(SM_CYCAPTION);
; ; WindowState:= wsNormal;
; ; WindowState:= wsMaximized;

; ; LockWindowUpdate(0);
; end
; else
; begin
; ; LockWindowUpdate(Handle);

; ; StatusBar.Visible:= VisibleStatusBar;
; ; PanelFullScreen.Visible := false;
; ; Coolbar.Visible ;:= true;
; ; WindowState ; ; ;:= OldWindowState;
; ; SetWindowLong(Handle, GWL_STYLE, OldWindowStyle);
; ; Height:= Height + GetSystemMetrics(SM_CYCAPTION);

; ; if Visible then SetFocus;
; ; LockWindowUpdate(0);
; end;
end;

卷起千堆雪tyn:
; ; 这位大哥，分配积分这里没你的名字，抱歉了~谢谢大家[]