[Sveta22]

Доброе время суток!
Может это уже где то разбиралось но я что-то не нашла...
Такая проблемка. вообщем у меня есть программа в ней кнопки ToolButton к которые открывают различные екзешники. так вот мне надо редактировать свою программу т.е название кнопки и ссылку на екзешник через ini файл вот как это сделать? как создать файл и как прописать в него названия кнопок я понила а как ссылки прописать?

[Alexo]

как прописать в него названия кнопок я понила а как ссылки прописать?

А разница в чем строка она и есть строка.

[Sveta22]

вот у меня процедура
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
shellExecute(application.Handle,'open','C:\1\1.exe ', nil,nil,SW_SHOW);
end;
как мне такое считать с ини файла т.е что бы я могла в ини менять путь exe файлу

[Alexo]

Код:

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
shellExecute(application.Handle,'open','C:\1\1.exe ', nil,nil,SW_SHOW);
end;

на

Код:

procedure TForm1.ToolButton1Click(Sender: TObject);
var
  s: string;
begin
// тут присваиваем переменной s строку из ини файла
shellExecute(application.Handle,'open',s, nil,nil,SW_SHOW);
end;

[Sveta22]

не то...
вот подругому
тут я описываю ини файл в котором будет возможность менять название
кнопки
toolbutton1.Caption:=inifile.ReadString('ButtonCap tion','Button1', 'Name');
Вот как мне в делфи описать ини вот такой процедуры
shellExecute(Application.Handle,'open','C:\1\1.exe ',nil,nil,SW_SHOW); ???

[Alexo]

toolbutton1.Caption:=inifile.ReadString('ButtonCap tion','Button1', 'Name');
Вот как мне в делфи описать ини вот такой процедуры
shellExecute(Application.Handle,'open','C:\1\1.exe ',nil,nil,SW_SHOW); ???

Код:

procedure ExtractParhForIni;
var
  IniFile : TIniFile;
  Str : String;
begin
  IniFile := TIniFile.Create(settings.ini);
  s := readstring('Exeute','Execute1','notepad.exe'); // тут присваеиваем строке s данные из ini файла
  shellExecute(Application.Handle,'open',s,nil,nil,SW_SHOW);
  inifile.free;
end;

ini фаил

Код:

[Exeute]
Execute1=C:\1\1.exe

[Sveta22]

Спасибо тебе. Но что-то на shellExecute(Application.Handle,'open',s,nil,nil,S W_SHOW); ошибку выдает переменной s (((

[Alexo]

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

Спасибо тебе. Но что-то на shellExecute(Application.Handle,'open',s,nil,nil,S W_SHOW); ошибку выдает переменной s (((

Какую ошибку?

PChar(S); так как скорее всего несоотвествие типов.

[Sveta22]

та такую 'PChar'