Так работает
Код:
var
sc: Variant;
begin
sc:=CreateOLEObject('MSScriptControl.ScriptControl');
SC.Language:='VBScript';
SC.Timeout:=-1;
SC.AllowUI:=True;
SC.AddCode(Memo1.Text);
SC.Run;
vbs
Цитата:
MsgBox "My Message Box Title",4,"My Message Box Message"
|
Но, после выходит ошибка EOleSysError with message "Недопустимое число параметров".