Как анализировать параметры командной строки при загрузке программы написанной на Delphi

27.06.2012 13:19:39

Задача:
Нужно проверять параметры, с которыми была запущена программа.
Если файл был запущен с ключом -silent, то главная форма не должна отображаться, вместо этого нужно будет вызывать процедуру prcSilent.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program TestProgram;

uses
  Forms,
  uFrmMain in 'uFrmMain.pas' {frmMain};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
    if ParamCount > 0 then
      begin
        if paramstr(1) = '-silent' then
        begin
          Application.ShowMainForm:=False;
          frmMain.prcSilent();
        end;
      end
    else
      begin
        // Обычный запуск
      end
    ;
  Application.Run;
end.

В данном примере не рассматривается случай если при запуске ключ -silent был не первым в списке передаваемых параметров.
Конечная реализация проверки всех параметров в цикле зависит от конкретной задачи и в этой заметке рассмотрена не будет.


Категории: Delphi
Яндекс.Метрика