谁有恶搞的病毒或者吓人的病毒，告诉我下载地址或者制作方法用什么制作，谢谢

我有一个既恶搞又吓人的不能说是病毒的程序。

新建一个文本文档(.txt)，要复制以下代码：

@echo off

color 4

tskill explorer

echo .

echo .

echo .

echo .

echo 警告：在病毒执行期间禁止关闭电源，

echo 否则你就和你心爱的电脑说

echo .

echo .BYE-BYE

echo .

echo Computer system crash!

echo .

echo .

echo I am a virus, my name is Ghost.

echo 我是魔鬼病毒，在这个堕落的世界上苏醒了。

echo .

echo .Warning! CPU has been changed please re-enter CPU settings

echo. in the CMOS setuo and remember to save before quit.

echo. Secondary IDE channel no 80 conductor cable installed.

set /p select=:)

if "%select%"=="" goto start

:start

shutdown -r -t 10 -c "您的计算机上带有魔鬼病毒，今天是它的发作日期。病毒已经破坏了您的系统，您的计算机将在10秒钟后重启。"

::结束

再另存为：名字.bat 你要记住"名字"后面要加".bat"

就可以了，没有任何破坏性，吓吓人。

你可以试试看看效果。

在 Delphi 程序中调用别的可执行程序，可以使用三种方法：

1、WinExec

示例代码：

WinExec('Notepad.exe Readme.txt', SW_SHOW)//运行记事本

2、ShellExecute

//调用记事本 

ShellExecute(NULL,"open","NOTEPAD.EXE",NULL,NULL,SW_SHOWNORMAL)

3、CreateProcess

---