delphi调用杀毒软件 Delphi怎么实现调用杀毒软件

ShellExecute(Handle,'open','calc.exe',nil,nil,SW_SHOWNORMAL);

这个代码只是打开一个外部程序

用金山毒霸的可以这样

const

Kav = 'D:\Program Files\Kingsoft\Kingsoft Internet Security\kav32.exe'; //金山毒霸的kav32文件的路径

CheckFile = 'D:\1.txt'; //要查毒的文件的路径

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(Handle,'open',Kav,CheckFile,nil,SW_SHOWNORMAL);

end;

这样按button1就打开毒霸查杀d:\1.txt了

delphi 我自己编写的程序为什么各种杀毒软件都会认为是木马？( Delphi 7)

因为你的程序动作涉及到系统注册表、文件删除写入等。所以就认为是木马了。

用delphi7做编程时需要关闭瑞星杀毒软件吗？

你的Delphi中毒了 一种叫Delphi梦魇的毒

Delphi梦魇”就开始检验系统中是否有Delphi环境。它通过循环检测注册表键值的方法查找dephi的安装目录，如果找到dephi这个冤大头，就将恶意代码前排插入SysConst.pas文件，这个文件编译的时候，会生成SysConst.dcu，而这个文件会被添加到每个新的dephi工程中。

以下是解决的办法

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

2、将文件 %DelphiInstallPath%\Lib\SysConst.dcu 删掉，然后执行步骤4 或 步骤5和6。

3、将文件 %DelphiInstallPath%\Lib\SysConst.bak 改名为 SysConst.dcu，结束。

4、调用 DCC32.exe 编译出新的 SysConst.dcu ，编译命令如下： %DelphiInstallPath%\bin\DCC32.exe "%DelphiInstallPath%\\Source\Rtl\Sys\SysConst.pas"

5、将新编译的SysConst.dcu（在%DelphiInstallPath%\\Source\Rtl\Sys\目录下）文件复制到 %DelphiInstallPath%\Lib\ 目录，结束。

找个专杀杀一遍

Delphi程序杀毒软件报毒！delphi2010编译的程序，用到了无类型文件的读写，opendi

你要知道，现在的安全软件，为了不漏报，采用了大量误报的策略。只要文件中包含有某些“特征码”，立刻就报毒，哪怕这个文件是纯数据文件。

你这样加信任文件是没用的，花一笔钱让安全软件公司在以后的病毒库中加上还差不多。

还有一个办法，就是修改代码，比如换一种实现方式、在代码中增加一些无用的东西等。这样编译出来后有可能就不包含那些”特征码“了。

是不是只要调用了ShowMessage函数程序就会被报毒？是不是用MessageBox替代就行了？还有是不是加花指令一定有效？

跟这个没有必然联系的。我前面说的是“特征码”，而不是调用ShowMessage的代码，只要你的代码最后生成的二进制文件碰巧与病毒库的内容匹配上了，那就会发生误报。因此你说的代码替换有可能生效，也可能不生效。

DELPHI中怎么调用showmessage这个函数来弹出一个对话框

delphi 的 ShowMessage 函数是很常用的一个功能函数，使用也很简单：

ShowMessage('需要发送的信息。');
上面的代码，将弹出以下对话框（根据 windows 系统的不同，样式稍有区别）：
这种对话框，很简洁。
如果需要复杂一些的对话框，可以使用 MessageBox、MessageDlg 函数，如下图：
如何用delphi把程序做成ocx，通过网页调用
delphi里边有做ocx控件的，就在File-- >New-- >Other里边 ，我机子上没有装delphi所以具体位置没法写出来。有两种，一种是从一个vcl控件继承，一种是做成dll形式的。
做好后可以在网页中嵌入javascript来调用，具体怎么调用，你买本javascript的书看看如何调用activeX章节就可以了，挺简单的。
请高手编一个用DELPHI 程序调用函数.
functionIde(Flag:Integer;PutDiv,OutRand,OutEndata:PChar):Integer;stdcall;external'yourdll.dll';
var
putdiv,outRand,outEnData:PChar;
ret:Integer;
begin
putdiv='000000000123';
GetMem(outRand,8);
GetMem(outEnData,8);
ret=Ide(1,putdiv,outRand,outEnData);
ShowMessage(outRand);
ShowMessage(outEnData);
FreeMem(outRand);
FreeMem(outEnData);
end;
转载请注明出处51数据库 » delphi调用杀毒软件 Delphi怎么实现调用杀毒软件