程序隐藏状态栏全屏显示

unit Unit13;

interface

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

type
TForm13 = class(TForm)
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
L, T, W, H : integer;
public
{ Public declarations }
end;

var
Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.btn1Click(Sender: TObject);
begin
if Self.BorderStyle = bsNone then
begin
Showwindow(Findwindow('Shell_TrayWND',nil), SW_SHOWDEFAULT);
Self.Left := L;
self.Top := T;
Self.Width := W;
self.Height := H;
Self.BorderStyle := bsSizeable;
end
else
begin
Showwindow(Findwindow('Shell_TrayWND',nil), SW_HIDE);

L := Self.Left;
T := self.Top;
W := Self.Width;
H := self.Height;

Self.width:=screen.width;
Self.height:=screen.height;
Self.Top := 0;
Self.Left := 0;
Self.BorderStyle := bsNone;
end;
end;

end.