delphi 如何编写需要启动参数的Delphi程序

有些时候，我们想让我们的程序根据不同的参数启动不同的界面或者，通过主程序才可以调用，这个时候使用启动参数也不是一种可行的方法。

 

1.首先建立一个工程，然后选择Project菜单；

2.选择View Source命令；

3.这样就打开了工程文件，一般的工程文件的代码如下：

复制内容到剪贴板程序代码 程序代码

 

program Project1;

 

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1};

 

{$R *.res}

 

begin

  Application.Initialize; 

  Application.CreateForm(TForm1, Form1);

  Application.Run;

end.

 

代码大概解释一下，首先Application先初始化，然后紧接着创建，最后运行窗体。

 

所以，我们需要改变程序的运行顺序，已达到需要参数才可以启动。我接直接给出代码吧：

复制内容到剪贴板程序代码 程序代码

 

program Project;

 

uses

  SysUtils,

  Forms,

  Unit1 in 'Unit1.pas' {Form1};

 

{$R *.res}

var

  i: integer;

begin

  if ParamCount = 0 then Exit;

  if (LowerCase(ParamStr(1))='/s') and (LowerCase(ParamStr(2)) = '/r') then

  begin

    Application.Initialize;

    Application.CreateForm(TForm1, Form1);

    Application.Run;

  end;

end.

 

4测试。那么如何测试呢？很简单，我们在程序的目录下建一个BAT批处理文件，根据本例的情况我们写如下代码即可：

Project /s /r

例如这样

自动下载的内容如下

这样打开程序时可以通过 paramstr(1) 获取到 http://d.offeu.com/liveupdate.txt  这个文件的内容

自动下载关闭启动.bat 

LiveUpdate http://d.offeu.com/liveupdate.txt 1 md5.exe

  paramstr(3) 取的时 md5.exe