Delphi URL Protocol 获取参数
Delphi URL Protocol 获取参数
虽然如今B/S,大前端盛行,单浏览器在某些方便还是受到一定限制。
翻出Delphi7写了一个Application,开发环境Windows7。
URL Porotocal 注册表:
` 导出reg文件如下。
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\TiLimsExe]
"URL Protocol"=""
@="Lims应用程序"
[HKEY_CLASSES_ROOT\TiLimsExe\Defaulticon]
@="F:\\T-Lims\\报告备份\\ReportBak.exe"
[HKEY_CLASSES_ROOT\TiLimsExe\shell]
[HKEY_CLASSES_ROOT\TiLimsExe\shell\open]
[HKEY_CLASSES_ROOT\TiLimsExe\shell\open\command]
@="F:\\T-Lims\\报告备份\\ReportBak.exe %1"
调用:
<a href="TiLimsExe:1,211">点击OPEN</a>
常规参数获取无效
我们知道D中,运行参数通过 paramCount 和 ParamStr() 获取,但是实测发现,通过 URL Protocol调起时,ParamCount 总为 1。
我判断该方法只能在系统环境下调用才有效——感兴趣的可以自行翻看下源码。
只要思想不滑坡,方法总比困难多
既然PAS不行,那么试试 Win32 API —— 这是yyds。
GetCommandLine
获取完整命令行
D中会得到:TiLimsExe:1,211
结束!