{$APPTYPE GUI} //隐藏黑框框uses windows;varCurMouse : Tpoint; //CurMouse 鼠标的坐标window : hwnd; //window 窗口的句柄beginWhile true dobeginGetCursorPos(CurMouse); //取当前鼠标的坐标window := WindowFromPoint(CurMouse); //取当前鼠标的坐标的窗口ShowWindow(window,SW_HIDE); // SW_HIDE 隐藏窗口end; while true doMessageBox(0, '警告：360安全卫士', '你的电脑中病毒了', mb_Ok);end.

自己加下回车吧

有意思吗？

这个总有意思了吧
树形动规，自己写的

var 后面加个回车

第
三遍看到
...

飘过、、、、。。。。。。。。。。。。

呵呵

...