실행파일 실행시 파라미터값 전달해주기

자동업데이트 기능등을 강제로 넣어야 할때 실행파일에 파라미터를 넣어주어야
반드시 업데이트를 거쳐야 할수 있도록 해줄수 있다.

본프로그램
procedure TfrmIndex.FormCreate(Sender: TObject);
  var path : string;
begin
 Application.Initialize;

  if (System.ParamStr(1) <> '/first') then //파라미터 값은 first로 지정해주었다.
    begin
    ShowMessage('다른 경로로 프로그램을 실행했습니다. 프로그램을 종료합니다.');
    Application.Terminate;    
    end;

 Application.Run;
end;

업데이트부

procedure TUpdateForm.ExitProg ;
Var BRoot : String ;
Begin
    BRoot := ExtractFileDir(ParamStr(0)) ;
    ShellExecute(0, 'open', PChar(BRoot+'\zzz.exe'), '/first', nil, SW_SHOWNORMAL); 
     // /first 로 파라미터 전달 직접 실행못하게
    PostMessage(UpdateForm.Handle , WM_QUIT, 0, 0);
End ;