Delphi程序带参数运行

本文整理自网络，侵删。

 
程序1
program E1;
uses
Forms,Dialogs,SysUtils,
EndM1 in 'EndM1.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
if ParamCount<>3 then
begin
ShowMessage('缺少参数：'+Inttostr(ParamCount));
Application.Terminate;
Exit;
end;
//在运行时去读是否有带参数值
if ParamStr(1)<>'-x' then
begin
ShowMessage('缺少参数：'+ParamStr(1));
Application.Terminate;
Exit;
end;
Application.Run;
end.
Paramcount-->用于返回命令行参数的个数
Paramstr数组-->用于返回指定的命令行参数
showmessage('命令行参数个数为:'+inttostr(paramcount));
showmessage('第1个命令行参数为:'+paramstr(1));
showmessage('应用程序名称为:'+paramstr(0));

程序2
uses ShellAPI;
{$R *.dfm}
//function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer): HINST; stdcall;
procedure TForm1.btn1Click(Sender: TObject);
var
sFileName,sParam,sFilePath: string;
begin
sFileName:=ExtractFilePath(Application.ExeName)+'E1.exe';
sFilePath:=ExtractFilePath(Application.ExeName);
sParam:='-x -y -z';
ShellExecute(0, 'Open', PChar(sFileName), PChar(sParam), PChar(sFilePath), SW_SHOW);
end;

来源：http://www.delphixe.net/2018/08/04/delphi%E7%A8%8B%E5%BA%8F%E5%B8%A6%E5%8F%82%E6%95%B0%E8%BF%90%E8%A1%8C/
 

相关阅读 >>

Delphi 让程序主窗口不响应“显示桌面”

Delphi 全盘搜索指定文件

Delphi 将对象转换为json字符串或tjsonobject

Delphi tms web core 判断是否包含汉字

Delphi 收藏字符串处理单元

Delphi md5加密算法

Delphi nethttpclient post 函数

Delphi 10.x ide界面

Delphi程序删除自己

Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi程序带参数运行