怎么制作窗体全屏? ( 积分: 100 )

把任务栏都隐藏,怎么做?谢谢!

把任务栏都隐藏,怎么做?谢谢!

procedure TForm1.Button1Click(Sender: TObject);
var hTaskBar :HWND;
begin

hTaskBar :=FindWindow('Shell_TrayWnd',nil);
ShowWindow(hTaskBar,SW_HIDE);//隐藏任务栏
end;


procedure TForm1.Button2Click(Sender: TObject);
var hTaskBar :HWND;
begin

hTaskBar :=FindWindow('Shell_TrayWnd',nil);
ShowWindow(hTaskBar,SW_SHOW);//恢复任务栏显示
end;

FORM.BORDERSTYLE = BSNONE;
FORM.WINDOWSTATE = WSMAXIMIZE;

太好了，可是我不知道这些代码写在哪里，我才学，菜的很！希望楼上的高手能够帮细点，万分感谢！

比如第2个加在什么地方，我到处乱加，都提示我：致命错误！[]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
hTaskBar :HWND;
begin

hTaskBar :=FindWindow('Shell_TrayWnd',nil);
ShowWindow(hTaskBar,SW_HIDE);//恢复任务栏显示

Self.Left :=0;
Self.Top :=0;
Self.Width:=Screen.Width;
Self.Height:=Screen.Height;
end;


procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
var
hTaskBar :HWND;
begin

hTaskBar :=FindWindow('Shell_TrayWnd',nil);
ShowWindow(hTaskBar,SW_SHOW);//恢复任务栏显示
end;


end.

step1:
FORM.BORDERSTYLE = BSNONE;
FORM.WINDOWSTATE = WSMAXIMIZE;


step2:
procedure TForm1.FormShow(Sender: TObject);
begin

//设置全屏
SetWindowLong(handle,gwl_style,getwindowlong(handle,gwl_style) and (not ws_caption));
end;


---------------

这里很好，太热情了，看来是一个学习的最佳地方，我还要去找点基本的书来看，才能够与您们交流。关键是不知道写在哪里！

应该明白一个控件从创建到“消亡”发生的事件，它们的含义以及某些特定事件之间的相互顺序。

好了，看来辛苦你们了，谢谢，这个帖子就这样了，我要先去买一本书。

多人接受答案了。