zoukankan      html  css  js  c++  java
  • 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.

    程序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;
  • 相关阅读:
    乘法逆元
    17-11-01模拟赛
    17/10-17/11做题记录
    17-10-18模拟赛
    17-10-15模拟赛
    13-2.模板复习priority_queue
    bzoj1042[HAOI2008]硬币购物
    bzoj1057[ZJOI2007]棋盘制作
    bzoj1029[JSOI2007]建筑抢修
    bzoj1068[SCOI2007]压缩
  • 原文地址:https://www.cnblogs.com/westsoft/p/9900216.html
Copyright © 2011-2022 走看看