RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

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

作者:admin 来源: 日期:2018/4/6 13:42:05 人气: 标签:

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

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
0
0
0
0
0
0
本文网址:
下一篇:没有资料