Delphi程式帶引數執行
阿新 • • 發佈:2018-11-03
程式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;