如何使用createoleobject()

Question

在调用com 中 如何使用 createoleobject()

Answer 1

var
  vOle : Variant;
如 ：你要创建Excel　：
  try
    vOle := CreateOleObject('Excel.Application');
  except
    ShowMessage('Could not start Microsoft Excel.');
    Exit;
  end;
  try
  except
    try
    except
       ShowMessage('Microsoft Word version is not German, French or English.');
       Exit;
    end;
  end;

Answer 2

要加入一个单元文件:comctrl.不然你调用这个函数也没有用。