Delphi程序带参数运行
2021-07-03 04:06
标签：util begin log fun std direct hwnd file ati 程序1 程序2 Delphi程序带参数运行 标签：util begin log fun std direct hwnd file ati 原文地址：https://www.cnblogs.com/westsoft/p/9900216.htmlprogram E1;
uses
Forms,Dialogs,SysUtils,
EndM1 in ‘EndM1.pas‘ {Form2};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
if ParamCount3 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.
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;