BorlanD Russian Сommunity

Получение параметров командной строки. Ваше приложение может запускаться не только обычным способом, но и из командной строки. Например, так может запускаться 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

 

Всё на этом урок закончен.

Просмотров: 4571 | Категория: Delphi 7 | Дата: 11.05.2008