16,747
社区成员




uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
vScriptControl: OleVariant;
begin
vScriptControl := CreateOleObject('MSScriptControl.ScriptControl');
vScriptControl.Language := 'VBScript';
Text := vScriptControl.eval('inputbox("提示", "标题", "默认值")');
end;
[img=http://p.blog.csdn.net/images/p_blog_csdn_net/zswang/%E6%89%AE%E9%85%B7.gif]图[/img]偶只为蹭分而来。。。