如何编写需要启动参数的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

如下图:



评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭