testoleparams.obs

来自「格式化源码的最新板」· OBS 代码 · 共 5 行

unit testoleparams;interface implementation uses comobj;procedure wordup;var msword
:variant;begin msword:=createoleobject('Word.Basic');msword.appshow;msword.filenew
;msword.insert('Foo');msword.lineup(2,1);msword.texttotable(convertfrom:=2,numcolumns
:=3);end;procedure w_app;var wordapp:variant;begin wordapp:=createoleobject('Word.Application'
);wordapp.documents.open('foo',,,,'bar');end;end.