Avatar of boycoder
boycoder

asked on 

PROBLEM with antivirus and function

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;

PascalDelphi

Avatar of undefined
Last Comment
samenglish
SOLUTION
Avatar of Gerwin Jansen
Gerwin Jansen
Flag of Netherlands image

Blurred text
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
Avatar of boycoder
boycoder

ASKER

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.
Avatar of boycoder
boycoder

ASKER

epasquier: cheers mate! ill give it a try, thanks again bro.
Avatar of boycoder
boycoder

ASKER

A
Avatar of boycoder
boycoder

ASKER

hehe, loved thej oke too :D
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

Avatar of samenglish
samenglish
Flag of Australia image

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

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.

60K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
Ask the experts
Read over 600 more reviews

TRUSTED BY

IBM logoIntel logoMicrosoft logoUbisoft logoSAP logo
Qualcomm logoCitrix Systems logoWorkday logoErnst & Young logo
High performer badgeUsers love us badge
LinkedIn logoFacebook logoX logoInstagram logoTikTok logoYouTube logo