2.Lazarus执行外部程序之ShellExecute

ShellExecute 是一个标准的微软Windows函数(ShellApi.h)，在 Lazarus 中，其所在单元为 ShellApi。

uses ..., ShellApi;

ShellExecute函数原型：

function ShellExecute( hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST; stdcall;

参数：

• hWnd - 用于指定父窗口句柄。当函数调用过程出现错误时，它将作为Windows消息窗口的父窗口。例如，可以将其设置为应用程序主窗口句柄，即Application.Handle，也可以将其设置为桌面窗口句柄（用GetDesktopWindow函数获得）。
• Operation - 用于指定要进行的操作。其中 “open” 操作表示执行由 FileName 参数指定的程序，或打开由FileName 参数指定的文件或文件夹；“print” 操作表示打印由FileName参数指定的文件；“explore” 操作表示浏览由 FileName 参数指定的文件夹。当参数设为nil时，表示执行默认操作“open”。
• FileName - 用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。
• Parameters - 若 FileName 参数是一个可执行程序，则此参数指定命令行参数，否则此参数应为 nil 或PChar(0)。
• Directory - 用于指定默认目录。
• ShowCmd - 若 FileName 参数是一个可执行程序，则此参数指定程序窗口的初始显示方式，否则此参数应设置为 0。 取值：

0. SW_HIDE：隐藏窗口
1. SW_MINIMIZE：最小化窗口
2. SW_RESTORE：用原来的大小和位置显示一个窗口，同时令其进入活动状态
3. SW_SHOW：用当前的大小和位置显示一个窗口，同时令其进入活动状态
4. SW_SHOWMAXIMIZED：最大化窗口，并将其激活
5. SW_SHOWMINIMIZED：最小化窗口，并将其激活
6. SW_SHOWMINNOACTIVE：最小化一个窗口，同时不改变活动窗口
7. SW_SHOWNA：用当前的大小和位置显示一个窗口，不改变活动窗口
8. SW_SHOWNOACTIVATE：用最近的大小和位置显示一个窗口，同时不改变活动窗口
9. SW_SHOWNORMAL 与 SW_RESTORE 相同

返回值：

若ShellExecute函数调用成功，则返回值为被执行程序的实例句柄。若返回值小于32，则表示出现错误。

示例1：在窗体上添加如下按钮组件并实现单击按钮后执行对应的动作

按钮

动作

按钮1

打开 Windows 计算器

按钮2

打开 https://www.baidu.com 链接

按钮3

执行命令提示符并进入根目录

代码如下：

procedure TForm1.Button1Click(Sender: TObject);begin if ShellExecute(0,PChar('open'), PChar('calc.exe'),nil,nil,0) >= 32 then ShowMessage('成功打开计算器');end;procedure TForm1.Button2Click(Sender: TObject);begin if ShellExecute(0,PChar('open'), PChar('https://www.baidu.com'),nil,nil,0) >= 32 then ShowMessage('成功打开百度网');end;procedure TForm1.Button3Click(Sender: TObject);begin if ShellExecute(0,nil, PChar('cmd'),PChar('/k cd '),nil,1) >= 32 then ShowMessage('成功打开e:');end;