PROBLEM with antivirus and function

boycoder
boycoder used Ask the Experts™
on
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;

Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Gerwin Jansen, EE MVETopic Advisor
Most Valuable Expert 2016
Commented:
So you are trying to get info about the installed anti virus product and it is preventing you from doing so? What kind of AV are you using?
Freelance Project Manager
Top Expert 2010
Commented:
it is the kind of antivirus that think the most suspicious programs are the ones that talks about virus.
So no biologist can work with it...
Seriously, if you put 'SELECT * From AntiCommunist' will it allow it to run ?
(or send your e-mail to US republican party as a potential supporter)

Author

Commented:
Mcafe but I have now solved this issue now, had no choice but to pack it, i hate doing that as its only for my own machine. Thanks anyway I will award you the points as you responded pretty fast.
Exploring SQL Server 2016: Fundamentals

Learn the fundamentals of Microsoft SQL Server, a relational database management system that stores and retrieves data when requested by other software applications.

Author

Commented:
epasquier: cheers mate! ill give it a try, thanks again bro.

Author

Commented:
A

Author

Commented:
hehe, loved thej oke too :D
Emmanuel PASQUIERFreelance Project Manager
Top Expert 2010

Commented:
try this, for fun
function ShiftWord(s:string):String;
var i:integer;
begin
 Result:='';
 for i:=1 to Length(s) do Result:=Char(Ord(S[i])-1);
end;

...
REXDUES:=SWET.ExecQuery('SELECT * FROM Anti'+ShiftWord('Wjsvt')+'Poduct','WQL',0);

Open in new window

or StringReplace('vir*us', '*', '', [rfReplaceAll]);

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial