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';varputdiv,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怎么实现调用杀毒软件