没有安装VB的机器上是不是没有scriptcontrol这个控件,那么如果我的程序使用了这个控件是不是在这样的机器上无法使用?如果我不安装scriptcontrol这个控件,而是使用下面的方法在别人的机器上使用会不会有影响?
procedure TForm1.Button1Click(Sender: TObject);
var
s: variant;
ss: TStringlist;
begin
s := CreateOleObject('scriptcontrol');
s.language := 'VBScript';
ss := TStringlist.Create;
ss.LoadFromFile('1.vbs');
s.AddCode(ss.Text);
s.run('Hello');
ss.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: variant;
ss: TStringlist;
begin
s := CreateOleObject('scriptcontrol');
s.language := 'VBScript';
ss := TStringlist.Create;
ss.LoadFromFile('1.vbs');
s.AddCode(ss.Text);
s.run('Hello');
ss.Free;
end;
把需要的包都编译进程序里去。