ole1.pas

来自「FastScript 1.94 Full Source」· PAS 代码 · 共 9 行

var
  MSWord: Variant;
begin
  MsWord := CreateOleObject('Word.Basic');
  MsWord.AppShow;
  MSWord.FileNew;
  MSWord.Insert('Test!');
  MSWord.LineUp(1, 1);
end.