Как зделать программу по созданию файла!

[}{oт@бь)ч]

Здарствуйте вот у меня такой вопрос!
Вот у меня есть программа!

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin

Application.ProcessMessages;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdFTP1.Host := 'xost';
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';
IdFTP1.Connect(true);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt' ,true);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt' ,true);
Form1.Close;

end;

end.

Как мне зделать такую программу чтобы в свойствах Edit я писал и заполнялося вот сюда

IdFTP1.Host := 'xost';тоесть Edit1 пишу например xxxx.ru и в поле
IdFTP1.Host вместо xost было xxxx.ru
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';

Важны только эти три поля!
И чтобы после этого!
При нажатии на кнопку создавался новый exe файл

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin

Application.ProcessMessages;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdFTP1.Host := 'xxxx.ru';
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';
IdFTP1.Connect(true);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt' ,true);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt' ,true);
Form1.Close;

end;

end.

Такойже только с изменеными параметрами


Надеюсь понятно написал а то незнаю как свои мысли выразить!

[Terran]

Как мне зделать такую программу чтобы в свойствах Edit я писал и заполнялося вот сюда
Цитата:
IdFTP1.Host := 'xost';тоесть Edit1 пишу например xxxx.ru и в поле
IdFTP1.Host вместо xost было xxxx.ru
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';

Можно сделать так:

IdFTP1.Host:=Edit1.Text;
IdFTP1.Username:=Edit2.Text;
IdFTP1.Password:=Edit3.Text;

[}{oт@бь)ч]

Ну мне нужно свосем другое тоесть
опишу по пунктам
Мне нужна програма
чтобы она:
1)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin

Application.ProcessMessages;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdFTP1.Host := 'xost';
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';
IdFTP1.Connect(true);
end;


procedure TForm1.FormShow(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt',true);

end;

procedure TForm1.FormPaint(Sender: TObject);
begin
form1.Close;
end;

end.

В вот в этом коде меняла

IdFTP1.Host := 'xost';
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';

Вот это значение xost login pass
на та которое я ввиду в програме!
и по нажатию на button создавался новый ехе с этим кодом
только уже с изменеными параметрами xost pass login
Так понятно?

[}{oт@бь)ч]

Так что народ некто несможет помочь?

[Jeni]

Теоретически сделать можно. Только придется тебе таскать вместе с самой программой её исходные тексты + компилятор Delphi + половину всей библиотеки компонентов.

P.S. Ты хоть иногда ставь запятые в тексте.

[}{oт@бь)ч]

Нет мне нужен имено один ехе файл!
Чтобы я тама хост логин и пароль указал!
Нажал Button и появился 2 ехе файл!
Код которого написан выше!

[BOBAH13]

Где то тут рядом тема как данные в ехе записать... кратко - пишем ваши три String поля в конец файла... а ваш ехе который их читает в ресурсах храним. Потом ваша программа вытаскивает оригинал из ресурсов записует его на винт открывает как файл простой и пишет в конец эти три параметра. Потом ваш ехе, который из ресурсов, при запуске копирует себя куда-либо открывает копию как файл читает эти три параметра и удаляет копию. Все. На счет копирования, можно попробовать открыть файл только для чтения прямо ParamStr(0) может винда разрешит. Вот все решение.

p.s. ну на процентов так 60 уверен что это сообщение будет проигнорировано т.к. оно решает поставленную задачу но чтобы это реализовать надо "думать" и + ко всему повалятся всякие предложения подобные решению представленному мной. спасибо за понимание

[}{oт@бь)ч]

Понимаете мнекакбы попроше обьяснить!
Просто я нуб в этом учусь тока!

[BOBAH13]

Сообщение от }{oт@бь)ч

Понимаете мнекакбы попроше обьяснить!
Просто я нуб в этом учусь тока!

Если не ясно что я сказал, то вперед учиться. Рано значит за такое взялись