Как сделать отправку файла на E-mail?! (Delphi)

[Npwas]

Как написать правиль отправку файла на E-mail?! И почему данный код воспринимается как вирус?!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, IdMessage,Registry,
  MMSystem;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdMessage1: TIdMessage;
    Button2: TButton;
    idSMTP1: TIdSMTP;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

PROCEDURE TForm1.Button1Click(Sender: TObject);
 BEGIN
   With idSmtp1 do
    Begin
      AuthenticationType:= atLogin;
      Host:='smtp.mail.ru';
      Port:=25;
      Username:='user';
      Password:='password';
      idMessage1.From.Text:='from@mail.ru';
      idMessage1.Recipients.EMailAddresses:='to@mail.ru';
      idMessage1.Subject:='тема сообщения';
      idMessage1.MessageParts.Clear;
      IF FileExists('d:\text.doc') Then
        TIdAttachment.Create(idMessage1.MessageParts, 'd:\text.txt') ;
      Connect();
      IF Connected Then
       Begin
        Send(IdMessage1);
        Disconnect;
       End;
    End;
END;

END.

[BDA]

Вот так у меня работает:

uses IdAttachmentFile;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  With IdSMTP1 do
  Begin
    Host := 'smtp.mail.ru';
    Port := 25;
    Username := 'login@mail.ru';
    Password := 'password';
    IdMessage1.From.Text := 'login@mail.ru';
    IdMessage1.Recipients.EMailAddresses := 'to@mail.ru';
    IdMessage1.Subject := 'тема сообщения';
    IdMessage1.MessageParts.Clear;
    IF FileExists('d:\text.txt') Then
      TIdAttachmentFile.Create(IdMessage1.MessageParts, 'd:\text.txt');
    Connect();
    IF Connected Then
    Begin
      Send(IdMessage1);
      Disconnect;
    End;
  End;
end;

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

[Npwas]

Ну как бы воровать из реестра я не собирался!!! Прост надо, чтобы определенно конкретные файлы перекидывало!!! Причем Антивирус валит данный код прямо на компиляции!!!

[BDA]

Если для личных нужд, то:
1) Дописать программу
2) Выключить антивирус
3) Скомпилировать программу
4) Положить программу на ее постоянное место хранения
5) В антивирусе добавить программу в исключения
6) Включить антивирус
7) Пользоваться

[Npwas]

А если для более широкого круга пользования, то вариант по труднее выйдет!!! Ведб остальные программы стандартные как то же работают или они во всех антивирусах есть как исключение?! Может быть подскажете где хоть найти информацию о осуществленни данного так, чтобы оно не вступало в конфликт с антивирусом!!!

[BDA]

Мне трудно сказать. Можно поискать способы отправки позаковыристее. Сменить среду разработки на более новую/старую. Посмотреть, как поступает антивирус с готовой exe-программой. Возможно он реагирует не на саму отправку, а на какие-то другие действия программы. Сменить антивирус . Добавить в описание программы, что такой-то антивирус по таким-то причинам удаляет данную программу, и написать просьбу о добавлении этой программы в исключения для использования.