、处理Windows的WM_ACTIVE消息：

void __fastcall TForm2::WMActivate(TWMActivate &Msg)

{

　　 if(Msg.Active == false)

　　Close();　　　　 file://当关闭关闭屏幕保护后，程序自动退出//　　

}

　　12 、处理Windows的WM_SYSCOMMAND消息：

void __fastcall TForm1::WMSysCommand(TWMSysCommand &Msg)

{　　　　　　　　　　　　　　　　

　　if(Msg.CmdType == SC_SCREENSAVE)

　　Msg.Result = true; file://防止屏幕保护程序被重复执行//　　　　

　　else

　　 TForm::Dispatch(&Msg); file://程序把消息发往其他对象//　　　　

　　13、在Timer1的Timer事件中添加如下代码：

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

　　

　　x1=Random(Screen.Height);

　　x2=Random(Screen.Weight);

　　x3=Random(Screen.Height);

　　Canvas->pen->Color=RGB(0,0,0);

　　 Canvas->Pen->Width=10;

　　Canvas->Brush->Color=RGB(0,0,0);

　　Canvas->Ellipse(x4,x5,abs(x4-x6),abs(x5-x6));

　　Canvas->Pen->Color=RGB(Ranndom(255),Random(255),Random(255));

　　Canvas->Pen->Width=10;

　　Canvas->Brush->Color=RGB(Ranndom(255),Random(255),Random(255));

　　Canvas->Ellipse(x1,x2,abs(x1-x3),abs(x2-x3));

　　x4=x1;

　　x5=x2;

　　x6=x3;//屏幕保护效果，用户可以自己定义//