KeyWeb
1111111111Rating 5.00 (1 Vote)

Информацию о имени файла, его расположении можно получить весьма простым способом:

Путь
ExtractFilePath(Application.ExeName);
Имя
ExtractFileName(Application.ExeName);
Расширение
ExtractFileExt(Application.ExeName);
Диск
ExtractFileDir(Application.ExeName);

Как это выглядит на практике:

procedure GetData;
var
_currentAppName, _Path : string;
begin
  _currentAppName := ExtractFileName(Application.ExeName);
  _Path := Application.ExeName;
end;

Добавить комментарий


Обновить
Защитный код

KeyWeb

Сейчас 138 гостей и ни одного зарегистрированного пользователя на сайте

Вверх
Вниз