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

结束！