如何写带参数的Delphi应用程序?

Question

我想从其他应用程序调用这个程序,并传递3个参数给它,请问怎样写带参数的应用程序?

Answer 1

procedure TForm1.FormCreate(Sender: TObject);var
  i: Integer;
  for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep
    elseif LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end;

Answer 2

我不止是说参数的调用,我是问project的结构和通常的有些什么差别.