Получение параметров командной строки. Ваше приложение может запускаться не только обычным способом, но и из командной строки. Например, так может запускаться Word - если указать ему в командной строке имя .doc-файла, то этот файл будет открыт.
Посмотрим, как мы можем реализовать такую возможность в Delphi.
Наша программа будет выглядеть и работать так - на главной форме будет расположен ListBox, строки которого при запуске приложения будут заполняться переданными в программу параметрами командной строки.
Итак, разместите на форме listbox, растяните его по горизонтали (так как передаваемые в командной строке параметры могут быть весьма длинными), а в обработчик создания формы добавьте следующий код.
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ParamCount do
begin
// Заполняем Listbox
// параметрами командной строки.
ListBox1.Items.Add(ParamStr(i));
end
end;
Что мы тут делаем? Мы прогоняем наш цикл ParamCount раз. Функция ParamCount как раз и возвращает число переданных параметров командной строки. Сами же параметры хранятся в массиве ParamStr, из которого мы и записываем соответствующие значения в наш listbox.
Обратите внимание, что в нашем массиве ParamStr под номером ноль находится имя нашего exe-файла (именно поэтому мы начали наш цикл с нуля).
Если запустить теперь нашу программу из консоли с параметрами командной строки: С:\proect.exe param1 150
То результат будет приблизительно такой:
С:\proect.exe
param1
150
Всё на этом урок закончен.