4. Обработка параметров запуска

   1. Последнее, что мы сделаем — реализуем возможность открывать при помощи нашей программы видео- или аудио-файл, имя которого указано в качестве параметра запуска. Для этого в обработчик события OnCreate формы добавим следующий код:

procedure TForml.FormCreate(Sender: TObject);

var

Str:String;

i:Integer;

begin

if ParamCount > 0 then

begin

Str := ParamStr(1);

for i := 2 to ParamCount do

Str := Str +' '+ ParamStr(i);

end;

if Str <> ' ' then

begin

Editl.Text := Str;

Play.OnClick (Self);

end;

end;

Здесь все просто: сначала делаем проверку, передаются ли программе какие-либо параметры (if ParamCount > 0), а затем, если эти параметры присутствуют, начинаем обрабатывать их как обычный (введенный в Edit) текст.

5. Сохраните создаваемый проект в своей папке.

• Для этого выполните команду главного меню File => Save All (Сохранить Все) или нажмите на кнопку Save All на панели инструментов.

• В окне Save Unit as с помощью списка выберите свою папку, создайте в ней папку Delphi и откройте ее, задайте название для файла текста программы Media_pl1, предварительно удалив предложенное компьютером название Unitl.pas => кнопка Сохранить.

• В следующем окне «Save Projectl As» введите название файла проекта Media_pl, удалив предложенное компьютером название Projectl.dpr => сохранить.. Обратите внимание: файлы проекта и текста программы должны иметь разные названия.

6. Компиляция и запуск программы

Для компиляции программы с последующим ее выполнением можно нажать клавишу <F9>, щелкнуть на кнопке Run панели инструментов или выполнить команду меню Run  Run.

7. Файл  Close All.

6