隐藏/显示任务栏的问题

[wuxm]

// 隐藏任务栏
procedure TForm1.HideToolBar;
Var
WndHandle: THandle;
WndClass: array[0..50] of char;
begin
StrPCopy(@WndClass[0], 'Shell_TrayWnd');
WndHandle := FindWindow(@WndClass[0], nil);
ShowWindow(WndHandle, SW_HIDE);
end;

// 显示任务栏
procedure TForm1.ShowToolBar;
Var
WndHandle: THandle;
WndClass: array[0..50] of char;
begin
StrPCopy(@WndClass[0], 'Shell_TrayWnd');
WndHandle := FindWindow(@WndClass[0], nil);
ShowWindow(WndHandle, SW_RESTORE);
end;

为什么任务栏是隐藏了，我的窗体却不能充满整个屏幕？怎样解决？

[takdick]

procedure tform1.hidetoolbar;
begin
form1.borderstyle:=bsnone;
setbounds(0,0,,screen.width,screen.height);
end;

[hongqi162]

procedure HideTaskbar; // 隐藏任务栏
var
wnd: THandle;
begin
wnd := FindWindow( 'Shell_TrayWnd' , nil );
ShowWindow( wnd, SW_HIDE );
end;

procedure ShowTaskbar; // 显示任务栏
var
wnd: THandle;
begin
wnd := FindWindow( 'Shell_TrayWnd' , nil );
ShowWindow( wnd, SW_SHOW );
end;