Delphi程序带参数运行

Posted 2021-01-17 westsoft

程序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.

程序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;