WindowState := wsMaximized;
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_HIDE);
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_RESTORE);
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_GRAYED);
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_ENABLED);
Form1.FormStyle := fsStayOnTop;
SetWindowPos(handle, HWND_TOPMOST, 0,0,width, height,SWP_NOMOVE);