Передача параметров из командной строки

uses
  ShellAPI;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'Files\file.txt';
var
  FileName, Params : String;
begin
  //Полный путь к файлу, который надо передать блокноту для открытия.
  FileName := ExtractFilePath( ParamStr(0) ) + Fn;
  //Параметры командной строки.
  Params := '"' + FileName + '"';
  //Запуск блокнота.
  ShellExecute(Handle, nil, 'notepad.exe', PChar(Params), nil, SW_SHOW);
end;

uses
  ShellAPI;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Params : String;
begin
  //Если параметров в командной строке нет - выходим.
  if ParamCount = 0 then Exit;
  //Запуск приложения и передача ему одного параметра командной строки.
  ShellExecute(Handle, nil, 'D:\Semafor\bin\client.exe', PChar( ParamStr(1) ), nil, SW_SHOW);
end;

uses
  ShellAPI;
 
var
  S : String;
begin
  //Перебор параметров командной строки.
  for i := 1 to ParamCount then do begin
    S := ParamStr(i);
    //...
    //...
    //...
  end;
end;

unit Zap;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI;
 
type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
//   procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
var
VSP,RootDir,ModeFileName: string;
 
const
  BinFolder: string = 'bin\';
procedure TForm1.btn1Click(Sender: TObject);
 
var
  Res, Check: integer;
  S,FileName, Params : String;
  DirStructureError: boolean;
begin
   val(Edt1.Text, Res, Check);
    DirStructureError:=False;
  RootDir:=Application.ExeName;
  RootDir:=ExtractFilePath(RootDir);
  {s:=copy(RootDir, Length(RootDir)-3, 3);
  if s<>'bin' then DirStructureError:=False;
  RootDir:=copy(RootDir, 0, Length(RootDir)-4); }
  ModeFileName:=RootDir+'LightsClient.exe';
  if Check<>0 then MessageDlg('Îøèáêà: ââåäèòå ÷èñëåííîå çíà÷åíèå!', mtError, [mbOk], 0)
  else
    begin
      VSP:=Edt1.Text;
      Form1.Close;
      Form1.ModalResult:=mrOk;
     // Params := '"' + VSP + '"';
     Params := VSP;
 
 
      // RootDir:=copy(RootDir, 0, Length(RootDir)-4); 'D\Semafor\bin\LightsClient.exe'
 
     //Çàïóñê
      ShellExecute(Handle, nil, 'D:\Semafor\bin\LightsClient.exe' , PChar(Params), nil, SW_SHOW);
    end;
 
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
 form1.Close;
end;
 
end.

 ShellExecute(Handle, nil, 'D:\Semafor\bin\LightsClient.exe' , PChar(Params), nil, SW_SHOW);

ShellExecute(Handle, nil, PChar(ModeFileName) , PChar(Params), nil, SW_SHOW);

 MessageDlg('Автоматически определен номер ВСП: '+VSPNo+'.'+chr(13)+'Соответствует ли он действительному номеру вашего ВСП?', mtConfirmation, [mbYes, mbNo], 0) = mrNo

  if IDNO = MessageBox(
    0
    ,PChar('Автоматически определен номер ВСП: ' + VSPNo  + '.'
      + #10'Соответствует ли он действительному номеру вашего ВСП?')
    ,'Вопрос'
    ,MB_YESNO + MB_ICONQUESTION + MB_APPLMODAL
    )
  then begin
    //...
  end;

procedure TForm1.CheckVSPNo;
begin
  if MessageDlg('Автоматически определен номер ВСП: '+VSPNo+'.'+chr(13)+'Соответствует ли он действительному номеру вашего ВСП?', mtConfirmation, [mbYes, mbNo], 0) = mrNo
    then Form4.ShowModal;
  if Form4.ModalResult=mrOk then
    begin
      ModeFileName:=RootDir+TxtFolder+VSPNo+'mode.txt';
      InfoFileName:=RootDir+TxtFolder+VSPNo+'info.txt';
      LogFileName:=RootDir+LogFolder+VSPNo+'.log';
      CheckFiles;
      Form1.Caption:='Светофор: управление (ВСП '+VSPNo+')';
    end;
  DoCheckVSP:=false;
end;

procedure TForm1.CheckVSPNo;
begin
  if IDNO = MessageBox(
    0
    ,PChar('Автоматически определен номер ВСП: ' + VSPNo  + '.'
      + #10'Соответствует ли он действительному номеру вашего ВСП?')
    ,'Вопрос'
    ,MB_YESNO + MB_ICONQUESTION + MB_APPLMODAL
    )
  then Form4.ShowModal;
 
  if Form4.ModalResult=mrOk then
    begin
      ModeFileName:=RootDir+TxtFolder+VSPNo+'mode.txt';
      InfoFileName:=RootDir+TxtFolder+VSPNo+'info.txt';
      LogFileName:=RootDir+LogFolder+VSPNo+'.log';
      CheckFiles;
      Form1.Caption:='Светофор: управление (ВСП '+VSPNo+')';
    end;
  DoCheckVSP:=false;
end;