如何向一个待启动的程序传参数，待启动的程序如何能接收、处理传来的参数

Question

我用DELPHI做了两个工程A、B，其中用A启动B，启动B的时候需要向B传参数（有点象DOS程序一样），如何向B传参数，B在启动的时候如何能接收到A传来的参数并处理它？？A、B都不是控制台程序，都是普通的WIN32应用程序。

Answer 1

win32应用程序一样象控制台应用程序那样通过命令行参数传递参数。

Answer 2

有关 Delphi 传入应用程式的命令列参数, 请参考以下的说明：用ParamCount函数取得命令参数的个数: 
呼叫 ParamStr(0), 传回执行档的档名(含路径)
呼叫 ParamStr(n), 传回第ｎ个参数的内容
procedure TForm1.FormCreate(Sender: TObject);
var
  sFileName: string;
begin
  if ParamCount > 0 then  //(* 有执行参数传入 *)
  begin
    sFileName := ParamStr(1); //(* 取得参数内容 *)
    if FileExists(sFileName) then
      Memo1.Lines.LoadFromFile(sFileName)
    else
      Application.MessageBox('找不到指定的档案', '讯息', 48);
  end;
end;