使用参数运行delphi应用程序

虽然它在DOS时代更为常见，但现代操作系统还允许您对应用程序运行命令行参数，以便您可以指定应用程序应执行的操作。...

虽然它在DOS时代更为常见，但现代操作系统还允许您对应用程序运行命令行参数，以便您可以指定应用程序应执行的操作。

对于Delphi应用程序也是如此，无论是控制台应用程序还是带有GUI的应用程序。您可以通过Windows中的命令提示符或Delphi中的开发环境，在Run&gt；参数菜单选项。

在本教程中，我们将使用“参数”对话框将命令行参数传递给应用程序，这样就好像是在Windows资源管理器中运行它一样。

paramcount和paramstr（）

ParamCount函数返回在命令行上传递给程序的参数数，ParamStr从命令行返回指定的参数。

主窗体的OnActivate事件处理程序通常位于参数可用的位置。当应用程序运行时，可以在那里检索它们。

请注意，在程序中，CmdLine变量包含一个字符串，其中包含启动应用程序时指定的命令行参数。可以使用CmdLine访问传递给应用程序的整个参数字符串。

示例应用程序

启动一个新项目并在表单上放置一个按钮组件。在按钮的OnClick事件处理程序中，编写以下代码：

procedure TForm1.Button1Click(Sender: TObject) ; begin ShowMessage(ParamStr(0)) ; end;

运行程序并单击按钮时，将出现一个消息框，其中显示正在执行的程序的路径和文件名。即使没有向应用程序传递任何参数，也可以看到ParamStr“工作”；这是因为数组值0存储可执行应用程序的文件名，包括路径信息。

从运行菜单中选择参数，然后将Delphi编程添加到下拉列表中。

注意：请记住，当您将参数传递给应用程序时，请使用空格或制表符分隔它们。使用双引号将多个单词包装为一个参数，就像使用包含空格的长文件名时一样。

下一步是使用ParamCount（）遍历参数，以使用ParamStr（i）获取参数的值。

将按钮的OnClick事件处理程序更改为：

procedure TForm1.Button1Click(Sender: TObject) ; var j:integer; beginfor j := 1 to ParamCount do ShowMessage(ParamStr(j)) ; end;

运行程序并单击按钮时，会出现一条消息，显示“Delphi”（第一个参数）和“Programming”（第二个参数）。

发表于 2021-10-17 03:52
阅读 ( 173 )
分类：数学

你可能感兴趣的文章

如何将媒体文件嵌入delphi可执行文件（rc/.res）(embed media files into a delphi executable (rc/.res))

使用声音和动画等多媒体文件的游戏和其他类型的应用程序必须随应用程序一起分发额外的多媒体文件，或者将文件嵌入可执行文件中。您可以将原始数据作为资源添加到应用程序中，而不是分发单独的文件供应用程序使用...

发布于 2021-09-06 15:08
阅读 ( 190 )

delphi编译器版本指令

...NUX MSWINDOWS-表示操作环境为MS Windows/li] CONSOLE—表示正在将应用程序编译为CONSOLE应用程序通过了解上述符号，就可以通过使用编译器指令为每个版本编译适当的源代码来编写与多个版本的Delphi协同工作的代码。注：例如，符...

发布于 2021-09-06 15:09
阅读 ( 161 )

将项目添加到tpopup delphi菜单

在Delphi应用程序中使用菜单或弹出菜单时，在大多数情况下，都是在设计时创建菜单项的。每个菜单项都由一个TMenuItem Delphi类表示。当用户选择（单击）一个项目时，OnClick事件将被触发，以供您（作为开发人员）获取该事件并...

发布于 2021-09-06 15:10
阅读 ( 164 )

理解delphi项目和单元源文件

简而言之，Delphi项目只是组成由Delphi创建的应用程序的文件集合。DPR是用于Delphi项目文件格式的文件扩展名，用于存储与项目相关的所有文件。这包括其他Delphi文件类型，如表单文件（DFM）和单元源文件（.PASs）。由于Delphi...

发布于 2021-09-06 15:15
阅读 ( 172 )

delphi中的sql

...、更新、查找数据位置等。 delphi中的tquery 如果要在应用程序中使用SQL，您将非常熟悉TQuery组件。Delphi使您的应用程序能够通过TQuery组件直接使用SQL语法来访问Paradox和dBase表（使用本地SQL—ANSI标准SQL的子集）、本地InterBase服...

发布于 2021-09-08 10:40
阅读 ( 183 )