Запуск файлов которые находится в разных папках «ниже самой программы»?

Question

[Timoxa636]

Всем доброго времени суток, народ нужна ваша помощь...
Создал программку

подскажите пожалуйста тэг для кнопок на закрепление "exe" файла к каждой кнопке...
и ещё такой вопрос, на сколько я понимаю файл к "exe" будет писаться полностю, а можно это как то заменить, потому как сама программа с нужными файлами будет путешествовать по компу... и что бы адрес каждый раз не переписывать, можно ли это указать из директории ?

Answer 1

[Андрей Вершинин]

Используйте файлы конфигурации. В uses - IniFiles.

Пример файла:

[Database]
user_name=SYSDBA
password=masterkey
locale=win1251
location=C:\DB.fdb

Использование:

procedure TDMDatabase.DataModuleCreate(Sender: TObject);
var
  ini : TIniFile;
  login : String;
  pass : String;
  location : String;
  locale : String;

begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');

  try
    login := ini.ReadString('Database', 'username', 'SYSDBA');
    pass := ini.ReadString('Database', 'password', 'masterkey');
    location := ini.ReadString('Database', 'location', 'localhost:' + ExtractFilePath(Application.ExeName) + '\DB.fdb');
    locale := ini.ReadString('Database', 'locale', 'WIN1251');
  finally
    ini.Free;
  end;

//Используем полученные переменные

Под "закреплением файла" я так понимаю, имеется ввиду запуск приложения? Если да, то используйте ShellExecute на OnClick.

Comments

[Timoxa636]

user_name=SYSDBA
password=masterkey

Обязательно писать ? просто эта программа будет использоваться ещё и на других компах...

[Андрей Вершинин]

@Timoxa636 Это просто пример данных. Вы можете использовать любые, например просто

[Application]
path=<путь_к_программе_или_папке>

а затем использовать -

[Андрей Вершинин]

path := ini.ReadString('Application', 'path', %стандартное_значение%);

Всё, что выше - это просто пример.

[Timoxa636]

а вы можите не пример а уже готовую строку написать ?
вот допустим моя кнопка:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin

end;

и адрес "exe" denwer\SwitchOff.exe

[Timoxa636]

а то, что то я всё равно ничего не понимаю ))