前面提出的任务栏问题回答的都不对(0分)

用delphi开发的应用软件，
要求进入该系统后windows的任务栏立即自动隐藏，
应用系统占满全屏幕，包括原来的任务栏区域，
当退出系统后，立即恢复任务栏
代码越简单越好，谁能告诉我

不過沒有最大，最小化按鈕,你可參考修改修改。
procedure CreateParams(var Params: TCreateParams);
override;
procedure tform1.CreateParams(var Params: TCreateParams);
begin
self.BorderStyle:=bsNone;
inherited createparams(params);
params.Style:=params.Style or WS_CAPTION or WS_SYSMENU or WS_BORDER;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
showwindow(findwindow('shell_traywnd',nil),sw_hide);
showwindow(handle,SW_MAXIMIZE);
end;

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
showwindow(findwindow('shell_traywnd',nil),sw_show);
end;

SetWindowPos() or MoveWindow() with FindWindow()

把 zxb200大侠的
> procedure tform1.CreateParams(var Params: TCreateParams);
> begin
> self.BorderStyle:=bsNone;
> inherited createparams(params);
> params.Style:=params.Style or WS_CAPTION or WS_SYSMENU or WS_BORDER;
> end;

改为
procedure tform1.CreateParams(var Params: TCreateParams);
begin
Inherited createparams(params) ;
params.style:=WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;

------------- 这样更干脆～ 呵呵 [][][]

接受答案了.