[PaHaNjkee]

Как сделать чтобы при нажатии на Кнопку создавался в папке с программой файл setup.inf?

И еще один вопрос:

Я обьявил переменные op, metka, ico и тип tcaption.

Я вписал в FormCreate вот это:

op:=Edit1.text;
metka:=Edit2.text;
ico:=Edit3.Text;

Хочу чтобы в этом файле создавалось вот это:

[Autorun]
open=(здесь что находится в Edit1.text только не в скобках)
label=(здесь что находится в Edit2.text только не в скобках)
icon=(здесь что находится в Edit3.text только не в скобках)

Если возможно скажите как

[roamer]

*.inf имеет такую же структуру, как *.ini
Поэтому, можно использовать методы объекта TIniFile.
Типа:

Код:

PutToINI_StringParam('C:\setup.inf','Autorun','open',Edit1.text);;
PutToINI_StringParam('C:\setup.inf','Autorun','label',Edit2.text);;
PutToINI_StringParam('C:\setup.inf','Autorun','icon',Edit3.text);;

...
Uses
  ...
  IniFiles;

procedure PutToINI_StringParam(NameINI,NameTop,NameParam,S : string; YesAllTrimValue:boolean=true);
begin
  if YesAllTrimValue then S:=Trim(S);
  NameINI:=Trim(NameINI);
  NameTop:=Trim(NameTop);
  NameParam:=Trim(NameParam);
  if (length(NameINI)>0) and (length(NameTop)>0) and (length(NameParam)>0) then begin
     with TIniFile.Create(NameINI) do
       begin
         TRY
           WriteString(NameTop,NameParam,S);
         FINALLY
           Free;
         END;
     end;
  end;
end;

[PaHaNjkee]

куда вот эти строки писать

PutToINI_StringParam('C:\setup.inf','Autorun','ope n',Edit1.text);;
PutToINI_StringParam('C:\setup.inf','Autorun','lab el',Edit2.text);;
PutToINI_StringParam('C:\setup.inf','Autorun','ico n',Edit3.text);;


и еще: мне надо чтобы при нажатии на кнопку создавался этот файл

[ryderx34]

Вот в обработчике OnClick (у кнопки) и пиши эти строки.

[PaHaNjkee]

Спасибо не надо=) Кому надо вот:

Код:

Uses
...
inifiles

procedure TForm1.Button1Click(Sender: TObject);
begin
IniFile:=TIniFile.Create('C:\autorun.inf');
IniFile.WriteString('Autorun','open',Edit1.Text);
end;

Вот еще 2 вопросика возникли пишу вот так:

IniFile:=TIniFile.Create('autorun.inf');
Но у меня в папке с программой он не создается! Помогите

И еще:
Как сделать если файл создался выдавалось сообщение типа Файл успешно создан!

[PaHaNjkee]

Народ помогите плз) Очень надо...

[ryderx34]

Сообщение от PaHaNjkee

Но у меня в папке с программой он не создается! Помогите

Ini-файл создаётся только когда в него что-нибудь записывается.

Сообщение от PaHaNjkee

Как сделать если файл создался выдавалось сообщение типа Файл успешно создан!

Проверить его наличие:

Код:

if FileExists('C:\autorun.inf') then
  ShowMessage('Файл успешно создан!');

И не забудь освобождать ini-файл после работы:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IniFile:=TIniFile.Create('C:\autorun.inf');
  IniFile.WriteString('Autorun','open',Edit1.Text);
  IniFile.Free;
end;

[PaHaNjkee]

Сообщение от ryderx34

Ini-файл создаётся только когда в него что-нибудь записывается.

А как тогда сделать? Если поменять местами.....не прокатит

[PaHaNjkee]

Сообщение от ryderx34

И не забудь освобождать ini-файл после работы:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IniFile:=TIniFile.Create('C:\autorun.inf');
  IniFile.WriteString('Autorun','open',Edit1.Text);
  IniFile.Free;
end;

Ну это я не забыл

[ryderx34]

Сообщение от PaHaNjkee

А как тогда сделать? Если поменять местами.....не прокатит

Просто TIniFile.Create не создаёт сам ini-файл, только объект, который будет работать с файлом. Файл, если он ещё не существует, создаётся при вызове WriteString, WriteInteger, WriteBool и т. д.
Если нужно проверить был ли создан файл проверяй после вызова метода WriteString:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IniFile:=TIniFile.Create('C:\autorun.inf');
  IniFile.WriteString('Autorun','open',Edit1.Text);
  if FileExists('C:\autorun.inf') then
    ShowMessage('Файл успешно создан!');
  IniFile.Free;
end;

[PaHaNjkee]

Нет, мне по сути надо чтобы файл создался в папке с программой а не на диске C

[roamer]

IniFile:=TIniFile.Create(ExtractFilePath(ParamStr( 0)+'\autorun.inf');

[PaHaNjkee]

Большое спасибо! Но вот так правильней будет:

Код:

IniFile:=TIniFile.Create(ExtractFilePath(ParamStr( 0))+'\autorun.inf');