瑞星卡卡安全论坛

TForm1=class(TForm)
procedure FormCreate(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;

调用GetSystemTime获得系统时间
得到计算机名，但是并没有保存这个名称
比较系统时间中的月份是否为7，如不为7，则直接关闭自身窗口，程序会退出
也就是说，这个程序之后的行为，只在7月份才会表现出来：
将计算机名改为"Serveb"
为自身进程提"Seshutdownprivilege"权限（要进行关机或重启的操作，需要有这个权限）
ExitWindows Ex(EWX_REBOOT|EWX_FORCE,0);（强制重启系统，API中间有个空格，是因为不知道为什么被卡卡屏蔽了，所以只能改成这样）
SetWindowLong(Form1.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);{为自身窗口增加一个tool window的扩展属性，这样它不会出现在任务栏上}
在注册表
[HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\runonce]
创建Msconfig键，值为自身文件路径，以实现每次开机后的自启动。