怎么让执行文件带有参数?就向DOS下的执行文件一样:例如:COPY AAA TO BBB
我现在需要我编的程序被别的程序调用,后面需要一参数。怎么样实现?

解决方案 »

  1.   

    for i := 0 to ParamCount -1 do
      begin
        if LowerCase(ParamStr(i)) = 'beep' then
          Beep(10000,1000)
        else if (LowerCase(ParamStr(i)) = 'exit' then
          Application.Terminate;
      end;
      

  2.   

    请问:在DELPHI程序中,这个参数是存在Application.run(str:string)?
    在程序中是如何体现了?
    例如:我的程序名read,别人调用时候在程序中写入 read string;
    谢谢,望回答,本人不甚感激!
      

  3.   

    在你程序中设置全局变量,将参数存储在全局变量中就可以了,需要用到的单元直接取全局变量的值在你的工程里面获取参数,可以直接写到已经创建的Form中program abc;uses
      Forms,
      Unit1 in 'Unit1.pas' {Form1};{$R *.res}var
      I: Integer;begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      //获取参数
      for i := 0 to ParamCount do
        begin
          Form1.Memo1.Lines.Add(ParamStr(i));
        end;
      //
      Application.Run;
    end.
      

  4.   

    楼上的朋友多谢了,问题已经解决,
    其实用个CMDLIST函数就一切OK了:)