1 unit Unit1;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls;
8
9 type
10 TForm1 = class(TForm)
11 Button1: TButton;
12 Button2: TButton;
13 procedure Button1Click(Sender: TObject);
14 procedure Button2Click(Sender: TObject);
15 private
16 { Private declarations }
17 public
18 { Public declarations }
19 end;
20
21 var
22 Form1: TForm1;
23 Hwnd:THandle;
24 Tmp:integer;
25
26
27 implementation
28
29 {$R *.dfm}
30
31 procedure TForm1.Button1Click(Sender: TObject);
32 begin
33 Hwnd:=FindWindow('Shell_TrayWnd',nil);
34 if Hwnd<>0 then ShowWindow(Hwnd,SW_HIDE); //隐藏任务栏
35 SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@Tmp,0); //屏蔽系统热键
36 Height := screen.height;
37 Width := screen.width;
38 Position :=poScreenCenter;
39 end;
40
41 procedure TForm1.Button2Click(Sender: TObject);
42 begin
43 Hwnd:=FindWindow('Shell_TrayWnd',nil);
44 ShowWindow(Hwnd,SW_SHOW); //恢复任务栏
45 SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@Tmp,0);//恢复系统热键
46 Height := screen.height-50;
47 Width := screen.width;
48 Position :=poScreenCenter;
49 end;
50
51
52
53 end.