Hi, my antivirus does not allow my project to run. It finds the following line..
i dont weant to cryot or pack it
REXDUES := SWET.ExecQuery('SELECT * FROM AntiVirusProduct','WQL',0);
the word it find is "virus"
can i use another word that points to that, so it cant stop me working? below is the function
Function AVSV:String;
var
SWET : OLEVariant;
REXDUES : OLEVariant;
VITEL : OLEVariant;
WHATSGV : IEnumvariant;
NHFCZ : LongWord;
begin;
SWET := GetSDX('winmgmts:\\localhost\root\SecurityCenter2');
REXDUES := SWET.ExecQuery('SELECT * FROM AntiVirusProduct','WQL',0);
WHATSGV := IUnknown(REXDUES._NewEnum) as IEnumVariant;
Result:='';
while WHATSGV .Next(1, VITEL , NHFCZ ) = 0 do
begin
Result:=Result+Format('%s',[fggvc(VITEL .displayName)])+#13#10; // add ret line
Result:=Result+#13#10; // add an empty line at end of each block
end;
end;
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.