Delphi 进程之间传递cmd参数


本文整理自网络,侵删。

 uses
  ShellAPI;



{Unit1.pas}

通过这个单元的Button,调用另一个实例;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', 'project2.exe', '2 Hello World', nil, SW_SHOWNORMAL);

end;

{Unit2.pas}

接受参数的实例

procedure TForm1.FormCreate(Sender: TObject);

begin

Caption := ParamStr(1);

end;

其实不是一定要在FormCreate中相应,只要把ParamStr赋值给要用参数的地方就OK了。ParamStr(0)是实例自己,所以参数从1开始;而且传的参数是以空格分看的,“‘2 Hello World”,ParamStr(1) = '2' 了;

相关阅读 >>

Delphi清空回收站

Delphi 读取image组件转换base64编码

Delphi中指针和地址切换的方法

Delphi repeat until 运用

Delphi 实现延时自动关闭对话框

Delphi判断操作系统是否win10

Delphi 禁用本地网络连接/启用本地网络连接

Delphi xe10 文件目录/路径操作 (andorid、ios、windows)

Delphi 如何获取重载函数的地址

Delphi xe 启动关闭start page 页错误提示

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...