// Spy Sweeper Issue
function IsSpyWeeper: Boolean;
begin
  if IsService('WebrootSpySweeperService') then
    Result := True
  else
    Result := False;
end;

// McAfee VirusScan Issue
function IsMcAfeeVirScan: Boolean;
begin
  if IsService('McShield') then
    Result := True
  else
    Result := False;
end;

// Aston Issue
function IsAston: Boolean;
begin
  if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Aston') then
    Result := True
  else
    Result := False;
end;

// Lavasoft Firewall Issue
function IsLavasoftFire: Boolean;
begin
  if (IsService('LavasoftFirewall')) or (RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Lavasoft Firewall Pro_is1\InstallLocation')) then
    Result := True
  else
    Result := False;
end;

// Quick Heal Firewall Issue
function IsQuickHealFire: Boolean;
begin
  if IsService('QuickHealFirewall') then
    Result := True
  else
    Result := False;
end;

// PC Firewall Issue
function IsBuhlFire: Boolean;
begin
  if IsService('SFirewall') then
    Result := True
  else
    Result := False;
end;

// Sophos Client Firewall Issue
function IsSophosFire: Boolean;
begin
  if IsService('SophosFirewall') then
    Result := True
  else
    Result := False;
end;

// AGAVA Firewall Issue
function IsAgavaFire: Boolean;
begin
  if IsService('fwservice') then
    Result := True
  else
    Result := False;
end;

// F-Secure Firewall Issue
function IsFSecureFire: Boolean;
begin
  if DriveExist('drivers\fsfw.sys') then
    Result := True
  else
    Result := False;
end;

// Jetico Firewall Issue
function IsJeticoFire: Boolean;
begin
  if IsService('Jetico Personal Firewall server') then
    Result := True
  else
    Result := False;
end;

// ZoneAlarm Firewall Issue
function IsZoneAlarmFire: Boolean;
begin
  if IsService('vsmon') then
    Result := True
  else
    Result := False;
end;

// CheckPoint Firewall Issue
function IsCheckPointFire: Boolean;
begin
  if IsService('FW1SVC') then
    Result := True
  else
    Result := False;
end;

// Online Armor Personal Firewall Issue
function IsOnlineArmorFire: Boolean;
begin
  if IsService('SvcOnlineArmor') then
    Result := True
  else
    Result := False;
end;

// VirusBuster Issue
function IsVirusBuster: Boolean;
begin
  if IsService('VBCompManService') then
    Result := True
  else
    Result := False;
end;

// McAffee Framework Self Protection Issue
function IsMcAfeeFramework: Boolean;
begin
  if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Network Associates\TVD\Shared Components\Framework\Installed Path') then
    Result := True
  else
    Result := False;
end;

// McAffee Enterprise Self Protection Issu
function IsMcAfeeEenterprise: Boolean;
begin
  if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Network Associates\TVD\VirusScan Enterprise\CurrentVersion\szInstallDir') then
    Result := True
  else
    Result := False;
end;

// McAffee Online Scan Self Protection Issue
function IsMcAfeeScanOnline: Boolean;
begin
  if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\McAfee.com\Virusscan Online\Install Dir') then
    Result := True
  else
    Result := False;
end;

// Sophos Antivirus Issue
function IsSophos: Boolean;
begin
  if IsService('savprogress.exe') then
    Result := True
  else
    Result := False;
end;

// Comodo FireWall Issue
function IsComodoFire: Boolean;
begin
  if RegKeyExists(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\Uninstall\Comodo Firewall') then
    Result := True
  else
    Result := False;  
end;

// Проверка компьютера на установленую защиту
function IsPCProtect: Boolean;
begin
  Result := False;
  if IsNod32Integrity or IsNod32OnAccess or IsEsetSysInspector or IsKlif
    or IsKavAVP or IsTrendMicro or IsAntiMalware or IsZillya or IsAdAware
    or IsMSecEssentials or IsAdvancedSysCare or IsAvirStop or IsUSBGuard
    or IsAnvitTaskMgr or IsSpyHunter or IsDrWeb or IsAvgAv or IsOutpostFire
    or IsSymantec or IsSymantecAutoProtect or IsSymantecFiltr or IsAvast
    or IsAvira or IsBitDefender or IsBitDefender2008 or IsCaAv or IsGDATA
    or IsSpyWeeper or IsMcAfeeVirScan or IsAston or IsLavasoftFire
    or IsQuickHealFire or IsBuhlFire or IsSophosFire or IsAgavaFire
    or IsFSecureFire or IsJeticoFire or IsZoneAlarmFire or IsCheckPointFire
    or IsOnlineArmorFire or IsVirusBuster or IsMcAfeeFramework
    or IsMcAfeeEenterprise or IsMcAfeeScanOnline or IsSophos or IsComodoFire then
    Result := True;
end;

// Получение всех установленных защит
function GetProtectProgs: PChar;
var
  ProgNames: String;
begin
  Result := '';
  if IsNod32Integrity then
    ProgNames := ProgNames + NOD32_INTEGRITY_ISSUE + ';';
  if IsNod32OnAccess then
    ProgNames := ProgNames + NOD32_ON_ACCESS_ISSUE + ';';
  if IsEsetSysInspector then
    ProgNames := ProgNames + NOD32_SYSINSPECTOR_ISSUE + ';';
  if IsKlif then
    ProgNames := ProgNames + KLIF_ISSUE + ';';
  if IsKavAVP then
    ProgNames := ProgNames + KAVAVP_ISSUE + ';';
  if IsTrendMicro then
    ProgNames := ProgNames + TREND_MICRO_INET_SEC_ISSUE + ';';
  if IsAntiMalware then
    ProgNames := ProgNames + MALWAREBYTES_ISSUE + ';';
  if IsZillya then
    ProgNames := ProgNames + ZILLYA_ISSUE + ';';
  if IsAdAware then
    ProgNames := ProgNames + LAVASOFT_ADADWARE_ISSUE + ';';
  if IsMSecEssentials then
    ProgNames := ProgNames + MICROSOFT_SEC_ESSENTIALS_ISSUE + ';';
  if IsAdvancedSysCare then
    ProgNames := ProgNames + SYSTEMCARE_ISSUE + ';';
  if IsAvirStop then
    ProgNames := ProgNames + STOP_ISSUE + ';';
  if IsUSBGuard then
    ProgNames := ProgNames + USBGUARD_ISSUE + ';';
  if IsAnvitTaskMgr then
    ProgNames := ProgNames + ANVIR_TASK_MGR_ISSUE + ';';
  if IsSpyHunter then
    ProgNames := ProgNames + SPYHUNTER_ISSUE + ';';
  if IsDrWeb then
    ProgNames := ProgNames + DRWEB_ISSUE + ';';
  if IsAvgAv then
    ProgNames := ProgNames + AVG_AV_ISSUE + ';';
  if IsOutpostFire then
    ProgNames := ProgNames + AGNITUM_ISSUE + ';';
  if IsSymantec then
    ProgNames := ProgNames + SYMANTEC_ISSUE + ';';
  if IsSymantecAutoProtect then
    ProgNames := ProgNames + SYMANTEC_AUTOPROTECT_ISSUE + ';';
  if IsSymantecFiltr then
    ProgNames := ProgNames + SYMANTEC_FILTRATION_ISSUE + ';';
 if IsAvast then
    ProgNames := ProgNames + AVAST_ISSUE + ';';
  if IsAvira then
    ProgNames := ProgNames + AVIRA_ISSUE + ';';
  if IsBitDefender then
    ProgNames := ProgNames + BITDEFENDER_AV_ISSUE + ';';
  if IsBitDefender2008 then
    ProgNames := ProgNames + BITDEFENDER_AV_2008_ISSUE + ';';
  if IsCaAv then
    ProgNames := ProgNames + CA_ISSUE + ';';
  if IsGDATA then
    ProgNames := ProgNames + GDATA_AVK_ISSUE + ';';
  if IsSpyWeeper then
    ProgNames := ProgNames + SPYSWEEPER_ISSUE + ';';
  if IsMcAfeeVirScan then
    ProgNames := ProgNames + MCAFEE_ISSUE + ';';
  if IsAston then
    ProgNames := ProgNames + ASTON_ISSUE + ';';
  if IsLavasoftFire then
    ProgNames := ProgNames + LAVASOFT_FIREWALL_ISSUE + ';';
  if IsQuickHealFire then
    ProgNames := ProgNames + QUICKHEAL_FIREWALL_ISSUE + ';';
  if IsBuhlFire then
    ProgNames := ProgNames + BUHL_FIREWALL_ISSUE + ';';
  if IsSophosFire then
    ProgNames := ProgNames + SOPHOS_FIREWALL_ISSUE + ';';
  if IsAgavaFire then
    ProgNames := ProgNames + AGAVA_FIREWALL_ISSUE + ';';
  if IsFSecureFire then
    ProgNames := ProgNames + FSECURE_FIREWALL_ISSUE + ';';
  if IsJeticoFire then
    ProgNames := ProgNames + JETICO_FIREWALL_ISSUE + ';';
  if IsZoneAlarmFire then
    ProgNames := ProgNames + ZONEALARM_FIREWALL_ISSUE + ';';
  if IsCheckPointFire then
    ProgNames := ProgNames + CHECKPOINT_FIREWALL_ISSUE + ';';
  if IsOnlineArmorFire then
    ProgNames := ProgNames + ONLINEARMOR_FIREWALL_ISSUE + ';';
  if IsVirusBuster then
    ProgNames := ProgNames + VIRUSBUSTER_ISSUE + ';';
  if IsMcAfeeFramework then
    ProgNames := ProgNames + MCAFEE_FRAMEWORK_ISSUE + ';';
  if IsMcAfeeEenterprise then
    ProgNames := ProgNames + MCAFEE_ENTERPRISE_ISSUE + ';';
  if IsMcAfeeScanOnline then
    ProgNames := ProgNames + MCAFEE_SCAN_ONLINE_ISSUE + ';';
  if IsSophos then
    ProgNames := ProgNames + SOPHOS_ISSUE + ';';
  if IsComodoFire then
    ProgNames := ProgNames + COMODO_ISSUE + ';';
  Result := PChar(ProgNames);
end;

end.