网页启动客户端exe程序收集.pdfVIP

网页启动客户端 exe 程序个人小结 从网页中启动 exe 程序我采用的方法是通过写 activex 插件 **.ocx 和 js 代码进行互动， 以达到网页启动 exe 的效果。 首先就是写 activex 插件了， 这个相信大家都会写， 不会网上也可以找到如何使用 delphi 来写 ocx 的插件。在写插件的时候有几点需要注意的：因为是和 js 进行互动的，所以需要 有和 js 之间共享的变量，例如申明一个变量 _msg: WideString; ，然后增加一个属性 property 如 Msg ，设置好 Msg 的一些参数，如下图所示： 设置完成后自动会生成两个函数，你可对其实现： function TMyActiveX.Get_Msg: WideString; begin Result:= _msg; end; procedure TMyActiveX.Set_Msg(const Value: WideString); begin _msg:= Value; end; 再则就是 activex 调用及对 _msg 赋值的一些函数了，如下： procedure TMyActiveX.MainDeal(const PathStr: WideString); var Spath: WideString; begin spath := ReadRegValue(PathStr); if Spath = then begin _msg:= 未检测到程序，请安装后重试。 ; Exit; end else begin Spath := Spath + EPPortal.exe; ShellExecute(Handle, nil, PChar(string(Spath)), nil, nil, SW_ShowNormal); end; end; function TMyActiveX.ReadRegValue(const ident: WideString): WideString; var reg: TRegIniFile; begin reg := TRegIniFile.Create; try reg.RootKey := HKEY_CURRENT_USER; if reg.OpenKey(const_Reg_software, true) then result := reg.ReadString(const_Reg_commpany, ident, ); reg.CloseKey; finally reg.Free; end; end; 当然对于界面添加函数及属性的方式如果你不喜欢则可以通过 edit 中的 Add to Inteface 同样 可以。编译通过后通过自带的功能在注册表里注册下就可以了， 但是有一个值需要复制下来， 那就是 activex 中的 CLASS_MyActiveX: TGUID = {DA8D7F2E-48F8-442F-9CE1-D7E3FD1E5E79}; 接下来就是网页端的代码了，这里我就不再阐述了，附上代码如下： html head meta http-equiv=Content-Type content=text/html; charset=gb2312 / meta http-equiv=Content-Language content=zh-cn / /head body OBJECT ID=x name=x CLASSID=CLSID:DA8D7F2E-48F8-442F-9CE1-D7E3FD1E5E79 align=center hspace=0