网络知识 娱乐 「3.Lazarus执行外部程序」1.RunCommand

「3.Lazarus执行外部程序」1.RunCommand

发布: 2023年2月14日 10:17:50

1.Lazarus执行外部程序之RunCommand

在 Lazarus 中， 关于如何执行一个外部 command（命令）或 process（进程）或 program（程序），可以使用如下表中的方法：

方法

Library

Platforms

单行代码

功能

ExecuteProcess

RTL

跨平台

是

非常有限

ShellExecute

WinAPI

仅微软Windows系统

是

较多

fpsystem, fpexecve

Unix

仅Unix系统



TProcess

FCL

跨平台

否

完全

RunCommand

FCL

跨平台 需要FPC 2.6.2+

是

涉及共有的TProcess用法

OpenDocument

LCL

跨平台

是

仅打开文档。

在实际开发中，我们比较常用的是：ShellExecute、TProcess、RunCommand 和 OpenDocument 4 个方法，本节我们来学习 RunCommand，是可以跨平台的，在 Process 单元中。

1.1 RunCommand

RunCommand 在当前工作目录执行命令， 使用 CmdLine 的版本尝试将命令行拆分为二进制和单独的命令行参数。此版本的函数已弃用。

在 Process 单元中的 RunCommand 函数原型：

function RunCommand( const exename: TProcessString; const commands: array of TProcessString; out outputstring: string; Options: TProcessOptions = []; SWOptions: TShowWindowOptions = swoNone):Boolean;

参数：

  • exename - 程序名
  • commands - 命令行参数
  • outputstring - 进程输出的字符串
  • Options - 进程选项
  • SWOptions - 显示进程的窗口选项。默认值为 swoNone

function RunCommand( const cmdline: TProcessString; out outputstring: string):Boolean;

参数：

cmdline - 要启动的二进制文件的限定路径，以及由空格分隔的命令行参数

outputstring - 进程输出的字符串

函数结果：

如果函数执行成功则为 True，否则返回 False。

1.2 RunCommandIndir

RunCommandInDir 将使用命令行选项 commands 执行二进制 exename，将 curdir设置为命令的当前工作目录。 捕获命令的输出，并在字符串 OutputString 中返回。该函数等待命令完成，如果命令启动成功，则返回 True ，否则返回 False。在返回值为整数的情况下，成功为零，错误为-1。如果指定了 ExitStatus 参数，则在此参数中返回命令的退出状态。

使用 cmdline 的版本尝试将命令行拆分为二进制和单独的命令行参数，此版本的函数已弃用。

在 Process 单元中的 RunCommandIndir 函数原型：

function RunCommandIndir( const curdir: TProcessString; const exename: TProcessString; const commands: array of TProcessString; out outputstring: string; out exitstatus: Integer; Options: TProcessOptions = []; SWOptions: TShowWindowOptions = swoNone):Integer;

参数：

  • curdir - 命令的当前工作目录
  • exename - 可执行程序
  • commands - 可执行文件的命令行参数
  • outputstring - 命令输出的字符串
  • exitstatus - 退出时进程的退出状态
  • Options - 运行命令时使用的选项
  • SWOptions - 示进程的窗口选项，默认值为 swoNone

function RunCommandIndir( const curdir: TProcessString; const exename: TProcessString; const commands: array of TProcessString; out outputstring: string; Options: TProcessOptions = []; SWOptions: TShowWindowOptions = swoNone):Boolean;

参数：

  • curdir - 命令的当前工作目录
  • exename - 可执行程序
  • commands - 可执行文件的命令行参数
  • outputstring - 命令输出的字符串
  • Options - 运行命令时使用的选项
  • SWOptions - 示进程的窗口选项，默认值为 swoNone

function RunCommandInDir( const curdir: TProcessString; const cmdline: TProcessString; out outputstring: string):Boolean;

参数：

  • curdir - 命令的当前工作目录
  • cmdline - 要执行的二进制文件名加上由空格分隔的命令行参数
  • outputstring - 命令输出的字符串

函数结果：

如果命令成功启动，则为真（或在整数返回值的情况下为零）。

错误：

出错时，返回False。

1.3 Options

启动进程时使用的选项：

  • poRunSuspended - 以挂起状态启动进程
  • poWaitOnExit - 等待进程终止后再返回
  • poUsePipes - 使用管道重定向标准输入和输出
  • postderrToOutPut - 将标准错误重定向到标准输出流
  • poNoConsole - 不允许访问进程的控制台窗口（仅限 Win32）
  • poNewConsole - 为进程启动一个新的控制台窗口（仅限 Win32）
  • poDefaultErrorMode - 使用默认错误处理
  • poNewProcessGroup - 在新进程组中启动进程（仅限 Win32）
  • poDebugProcess - 允许调试进程（仅限 Win32）
  • poDebugOnlyThisProcess - 不遵循此进程启动的进程（仅限 Win32）
  • poDetached - 在 Windows 上使用 DETACHED_PROCESS 创建标志运行进程
  • poPassInput - 将标准输入句柄传递给新进程
  • poRunIdle - 向事件处理程序发出信号以等待进程的运行循环中的输出。

1.4 示例

在窗体中添加两个按钮和一个 Memo 组件，单击第一个按钮在当前目录下执行 dir /s /a，单击第二个按钮在指定目录下执行 dir /s /a。代码如下：

procedure TForm1.Button1Click(Sender: TObject);var OutputString: String;begin if RunCommand('cmd', ['/c', 'dir', '/s', '/a'], OutputString) then Memo1.Lines.Add(OutputString);end;procedure TForm1.Button2Click(Sender: TObject);var OutputString: String;begin if RunCommandIndir('E:published', 'cmd', ['/c', 'dir', '/s', '/a'], OutputString) then Memo1.Lines.Add(OutputString);end;



相关文章