在delphi中使用msscript.ocx能举个例子吗？

Question

这个activex,没用过那.我试一试.先帮你up

Answer 1

with ScriptControl1 do
  begin
    Language :='VBScript'; ///设置语言，还可以为JavaScript
    SitehWnd :=Handle;   ///传递父窗口句柄
    ExecuteStatement('msgbox("Shit!")');  /// 显示一个Message Box
    ShowMessage('1+2+3*4/5^7='+FloatToStr(Eval('1+2+3*4/5^7')));
  end;

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ComObj, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var xx: OLEVariant;
begin
xx := CreateOLEObject('MSScriptControl.ScriptControl');
xx.Language := 'VBScript';
xx.AddCode('Dim i');
xx.AddCode('i=2');
xx.ExecuteStatement('MsgBox i^2');
end;end.