Virus/Win32.Induc.a是这是Delphi感染型病毒，通过感染Delphi库文件中的SysConst.dcu文件，进而使Delphi编写的所有文件染毒，目前尚不知其危害，网上说其没有危害。该病毒实际上并不具有危害性，只是其更改了库文件后使编译生成的所有程序均带有不正常代码，而其代码行为即为以上描述。这个病毒具有二次感染能力，也就是说原来你编译出来的所有Delphi程序都可以再次感染你机器上的Delphi库文件

win32/induce.a病毒的解决方法。

1、不要运行任何Delphi编写的程序。

2、使用杀软扫描所有的Delphi编写的可执行文件并清除病毒。（或直接删除所有哦的Delphi编写的可执行文件，包括从网上下载的）

3、将文件 %DelphiInstallPath%LibSysConst.dcu 删掉，然后执行步骤4 或 步骤5和6。

4、将文件 %DelphiInstallPath%LibSysConst.bak 改名为 SysConst.dcu，结束。

5、调用 DCC32.exe 编译出新的 SysConst.dcu ，编译命令如下： %DelphiInstallPath%binDCC32.exe "%DelphiInstallPath% SourceRtlSysSysConst.pas"

6、将新编译的SysConst.dcu（在%DelphiInstallPath%SourceRtlSys目录下）文件复制到 %DelphiInstallPath%Lib 目录，结束

如何区分病毒

如果你的DELPHI安装目录里的LibSysConst.dcu,有17K,就说明中招了

正常大小是12K左右, 修复这个文件再重新编译程序就不会有问题了

病毒特性：

Win32/Induc.A 病毒的目标文件是使用Borland Delphi汇编的程序。

当被感染文件运行时，病毒通过以下注册表的"RootDir"值查询Borland Delphi安装的根目录：

HKLMSoftwareBorlandDelphi4.0

HKLMSoftwareBorlandDelphi4.0

HKLMSoftwareBorlandDelphi5.0

HKLMSoftwareBorlandDelphi6.0

HKLMSoftwareBorlandDelphi7.0

一旦找到，它就会从%DELPHI_RootDir%sourcertlsysSysConst.pas复制到%DELPHI_RootDir%libSysConst.pas，并添加恶意脚本代码到新的文件上。

随后它使用CreateProcessA API包括Delphi Pascal Compiler可运行程序（%DELPHI_RootDir%bindcc32.exe），运行并编译修改的"SysConst.pas"文件。

最后，位于%DELPHI_RootDir%lib文件夹的"SysConst.dcu"文件将被修改。因此，所有的Delphi程序被编译后都被感染。

原始的"SysConst.dcu"文件被保存为"SysConst.bak"文件，在%DELPHI_RootDir%lib目录中被复制和修改"SysConst.pas"文件将被删除。