在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
有些时候,我们想让我们的程序根据不同的参数启动不同的界面或者,通过主程序才可以调用,这个时候使用启动参数也不是一种可行的方法。
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
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论