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 将word嵌入Delphi中

vclzip控件显示压缩进度

Delphi 调用外部程序获取程序id，并能关闭该程序

Delphi 如何将access的ole对象字段存储的bmp图象显示出来

Delphi xe 利用fmx控件的makescreenshot过程实现wait效果

Delphi 编写的一个感染文件夹的小病毒

Delphi中tapplicationevents控件的用途与使用方法

Delphi汇编级初探

Delphi嵌入循环汇编

Delphi 截屏函数（包含截取鼠标形状）

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

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