Получение имени программы

Delphi , Синтаксис , Синтаксис

В данной статье мы рассмотрим вопрос о том, как получить имя программы в языке Object Pascal (Delphi). Существует несколько способов сделать это, и мы рассмотрим два из них: использование директивы {$I %FILE%} и использование функции ParamStr(0).

Использование директивы {$I %FILE%}

Директива {$I %FILE%} является директивой препроцессора, которая возвращает имя файла, в котором она определена. Чтобы использовать эту директиву для получения имени программы, вы можете определить константу в начале вашей программы и присвоить ей значение {$I %FILE%}. Например:

program MyProgram;
const
  ProgramName = {$I %FILE%};
begin
  Writeln('Program name: ', ProgramName);
  Readln;
end.

При выполнении этой программы на экране будет выведено имя файла, в котором определена программа, то есть "MyProgram.pas".

Использование функции ParamStr(0)

Функция ParamStr(0) возвращает первый параметр командной строки, переданный программе. Если программа запускается без параметров, то функция возвращает пустую строку. Чтобы использовать эту функцию для получения имени программы, вы можете просто вызвать ее в любой точке вашей программы. Например:

program MyProgram;
begin
  Writeln('Program name: ', ParamStr(0));
  Readln;
end.

При выполнении этой программы на экране будет выведено имя исполняемого файла, который был запущен для выполнения программы, то есть "MyProgram.exe".

Вывод

В данной статье мы рассмотрели два способа получения имени программы в Object Pascal (Delphi): использование директивы {$I %FILE%} и использование функции ParamStr(0). Оба способа имеют свои преимущества и недостатки, и выбор одного из них будет зависеть от конкретных требований вашего проекта.

Создано по материалам из источника по ссылке.

Статья объясняет два способа получения имени программы в Object Pascal (Delphi): с помощью директивы препроцессора {$I %FILE%} и функции ParamStr(0).

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Синтаксис ::