delphi版调用JS 代码MD5加密 //--------------- function _JS_MD5(Code:string):string; begin Result:= ExecScript(Js_Code,'JavaScript','hexMD5('''+Code+''')'); end;