天国的光辉快来照耀我吧？

private
    playmove:string;
    procedure hideTaskbar;
    procedure showTaskbar;
    procedure WriteMciConfig;
    procedure wmhotkey(var msg:tmessage);message wm_hotkey;
    procedure allwindows;
     { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses input;const RSP_SIMPLE_SERVICE=1;{$R *.dfm}procedure tform1.allwindows;
begin
   form1.left  :=  0;                              //Form  全屏
    form1.Top  :=  0;
    form1.Width  :=  Screen.Width;
    form1.Height  :=  Screen.height;
end;
procedure tform1.hideTaskbar; 
//隐藏
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.showTaskbar;
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;
procedure TForm1.FormCreate(Sender: TObject);
var
  hwnd:Thandle;
begin  hwnd:=findwindow('shell_traywnd',nil);  //得到任务栏句柄
  showwindow(hwnd,sw_hide);          //隐藏任务栏，showwindow(hwnd_show) 为显示end;
end;
procedure TForm1.WriteMciConfig;
begin
  WritePrivateProfileString('mci extensions', 'mpg', 'MPEGVideo', 'win.ini');
  WritePrivateProfileString('mci extensions', 'dat', 'MPEGVideo', 'win.ini');
  WritePrivateProfileString('mci extensions', 'mpv', 'MPEGVideo', 'win.ini');
  WritePrivateProfileString('mci extensions', 'mpeg', 'MPEGVideo', 'win.ini');
  WritePrivateProfileString('mci extensions', 'cjt', 'MPEGVideo', 'win.ini');
  WritePrivateProfileString('mci extensions', 'avi', 'AVIVideo', 'win.ini');
  WritePrivateProfileString('mci','MPEGVideo', 'mciqtz.drv', 'system.ini');end;
procedure TForm1.N1Click(Sender: TObject);
begin
self.WindowState:=wsnormal;
self.Width:=600;
self.Height:=380;
self.Position:= poScreenCenter;
self.Refresh;
end;
procedure TForm1.btnyesClick(Sender: TObject);
begin
   TRY
   panel1.Visible:=false;
   MasPlayer1.Close;
   masplayer1.FileName:=playmove;
   table1.Locate('id',edit1.Text,[]);
   playmove:=dbdir.Text;   masplayer1.DeviceType:= dtAutoSelect;
   masplayer1.Display:= Form1;
   masplayer1.Open;
   masplayer1.DisplayRect:=Rect(0,0,1024,768);
   masplayer1.Play;
   edit1.Show;
  except
   showmessage('不能打开MCI设备！');
  end;