__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{ // if(Use_Window_Control)      Application->OnMessage = ProcessMessage ;
  CustomCaption = "软件";
  Caption = "";
  WindowCanvas = new TCanvas;
  // this code determines if we are running on NT3.X
  TOSVersionInfo ver;
  ver.dwOSVersionInfoSize = sizeof(TOSVersionInfo);
  GetVersionEx( &ver);
  if(ver.dwMajorVersion < 4)
    {
    // if the OS is NT 3.5, the custom caption won't be drawn
    // use the Caption property as usual, since the custom
    // caption won't be able to draw the string.
    IsNT35 = true;
    Caption = CustomCaption;
    }
  else   IsNT35 = false;
}
/*void __fastcall TForm1::WM_Not_Close (TMessage &message)
{
//message.Result=1; //禁止关机
TForm::Dispatch(&message);
}*/
void __fastcall TForm1::ProcessMessage (TMsg &message, bool &handled)
{ //去掉屏保两方法
  if (message.message == WM_SYSCOMMAND && message.wParam == SC_SCREENSAVE)
           handled = true ;
  else     handled = false ;
}
void __fastcall TForm1::WM_Screen_Start(TMessage &msg)
{
  if(msg.WParam!=SC_SCREENSAVE)
      TForm::Dispatch(&msg);
}

///&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
void __fastcall TForm1::WMNCActivate(TWMNCActivate &Msg)
{
  Msg.Result = true;              // always handle this message;
  if ((bool)Msg.Active == false)  // if non-active draw default
  {                               //  non-active title bar
    DefWindowProc( Handle, Msg.Msg, Msg.Active, 0 );
    // add code here to draw caption when window is inactive.
    // in this example, we leave the inactive caption alone.
    return;
  }
  TMessage PaintMsg;            // if active, do same thing as WMNCPaint
  PaintMsg.Msg    = Msg.Msg;    // create a MSG to pass to WMNCPaint and
  PaintMsg.WParam = Msg.Active; // call the function directly so painting
  WMNCPaint(PaintMsg);          // happens now.
}