• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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

 

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

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap