Jpg Screenshot von einem Fenster

[Neutral General]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IDFTP1.Host := 'ftp.geheim.de';
  IDFTP1.Username := 'Hans';
  IDFTP1.Password := 'kenntkeiner';
  IDFTP1.Passive := true;
  IDFTP1.Connect();
end;

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
 Loading := true;
end;

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  Loading := false;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if not Loading then LadeDateiHoch;
end;

und disconnectet wird eh wenn man das prog beendet xD