Delphi程序中运行JavaScript脚本代码
微软Windows操作系统中有一个叫ScriptControl的OCX组件
利用这个组件,可以在自己的程序中运行JavaScript或VBScript这两种脚本代码
使用很简单,新建一个工程,在窗体中放一个Button1控件
在Button1控件的Click事件中写代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
js:OleVariant;
begin
js:=CreateOleObject('ScriptControl');//创建组件
js.Language:='JavaScript';//指定

加为好友
送他礼物
发送消息









