如何接收外部参数

Question

如何接收外部参数

Answer 1

if ParamCount>1 then//ParamCount是参数个数
  ShowMessage(ParamStr(1));//ParamStr(0)代表应用程序自身

Answer 2

procedure TForm1.FormActivate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ParamCount do
    if i=3 then 
    begin
     ComboBoxUrl.text:=ParamStr(i);
     realaudio1.SetSource(ComboBoxUrl.Text) ;
     realaudio1.DoPlay;
    end;
end;

Answer 3

楼上的都对..但..知道不知道怎么样获得一个DLL的函数的参数..???