本文整理自网络，侵删。
有时做项目难免用到代码交叉调用，delphi中执行js就是一种，两种方法可用：
一、使用webbrower，比较麻烦
二、使用ScriptControl，简单方便：
1.首先
uses ComObj;
2.通用函数：
function ExecScript(Code,Lang,Func:string):string;
var
script:OleVariant;
begin
try
script:=CreateOleObject('ScriptControl');
script.Language:=Lang;
script.AddCode(Code);
Result:=script.Eval(Func);
except
end;
end;
3.放入一个memo,直接在form的create时，loadfromfile即可，或是直接把javascript代码放到memo中
procedure TForm1.FormCreate(Sender: TObject);
begin
mmoscript.Lines.LoadFromFile('uifordata.js');
end;
4.调用
cbbValue7.Text := ExecScript(mmoscript.Text,'JavaScript','function1(123)');
注意：本方法调用时，javascript的全局变量像screen不可用，会提示未定义。 相关阅读 >>
Delphi 获取窗口矩形的四种方法: getclientrect、clientrect、getwindowrect、boundsrect
Delphi richedit 的scrollbar自动向下滚动
Delphi 获取随机字符串的方法 thash.getrandomstring
更多相关阅读请进入《Delphi》频道 >>
