Антивирусы ругаются на безобидные Делфи-программы

[NetSpace]

нифига себе! приписали вирусняки мне. вот код этого якобы вирусного чуда.
мне оно в работе нужно, чтоб диск был чистым. а иначе будет постоянно вылазить сообщение типа "заменить или копировать без замены" и мешать. а так втихаря чистит и копирует, пока я выполняю другую работу.

program ADAPI; 
uses Windows,SysUtils,ShellAPI;
{$R dialog.res}

var SR:TSearchRec;
    SHFP:SHFILEOPSTRUCT;
    hFile:THandle;

begin
   hFile:=CreateFile(PChar(ExtractFilePath(ParamStr(0))+'ADAPI.EXE'),GENERIC_READ,FILE_SHARE_READ + FILE_SHARE_WRITE,Nil,OPEN_EXISTING,0,0);
   if(GetFileSize(hFile,nil)=20112)then//если файл упакован, то только тогда удаляем
   begin
      if FindFirst(ExtractFilePath(ParamStr(0))+'*.*',faHidden or faSysFile or faVolumeID or faDirectory,SR)=0 then
      repeat
       if(SR.Name<>'.')and(SR.Name<>'..')and(SR.Size<>20112)then//чтоб не удалил сам себя
       begin
          ZeroMemory(@SHFP,SizeOf(SHFP));
          with SHFP do
          begin
             wFunc:=FO_DELETE;
             pFrom:=PChar(ExtractFilePath(ParamStr(0))+SR.Name);
             fFlags:=FOF_NOCONFIRMATION;
          end;
          SHFileOperation(SHFP);
       end;
      until FindNext(SR)<>0;
      FindClose(SR);   
   end;
   CloseHandle(hFile);
end.

[Arigato]

Антивирусники часто проги на Делфи идентифицируют как вирусы. Видимо, много на нем вирусов писали.

[NetSpace]

да этот сайт вирустотал даже простой детский клавиатор вирусом считает только потому, что там используется процедура смены раскладки клавиатуры с английского на русский. только из-за этой вот строчки.

LoadKeyboardLayout('00000419',1);

[Arigato]

У меня часто проги на Делфи становились вирусами из-за самых разных безобидных команд. Можно предположить, что вот был когда-то вредонос, который менял раскладку для свои вредительских целей. Взяли и добавили это действие как триггер наличия вируса. Вирус ловит? Да. А на остальное нам накласть, пусть у разработчиков голова болит. Ну или используют не Делфи. Потому что именно в Делфи такая пьянка. Может быть даже целенаправленная дискредитация?

[Alar]

А ещё если помните, в Delphi 7 был вирус, цель которого была копировать самого себя, после чего вирусами были все приложения сделанные в делфи 7 и все билдеры.

[digitalis]

Было такое.
https://programmersforum.ru/showthread.php?t=330865

[newerow1989]

Я обычно так делаю:
- в виртуальной машине устанавливаю Delphi,
- затем делаю компиляцию этой программы (размер экзешника может становиться чуть меньше).

[NetSpace]

я, чтоб сделать размер программы не чуть меньше, а совсем по-минимуму, из библиотек вырезаю нужные мне функции и процедуры и в начале проекта эти подключаемые библиотеки убираю вовсе. один только SysUtils.pas, посредством которого частенько перевожу цифры в текст и обратно, занимает лишние 200 кБ проекта. а по сути оттуда мне надо только 2 процедуры, а не все 300....