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

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

相关推荐

评论