uses ComObj;procedure TForm1.Button1Click(Sender: TObject);
var MSWord: Variant;
begin
opendialog1.Filter:='Word files (*.doc)|*.DOC';
if opendialog1.Execute then
begin
MSWord := CreateOLEObject('Word.Application');
MSWord.Documents.Open (FileName:=opendialog1.FileName,ReadOnly:=True);//readonly为TRUE时,只读
MSWord.Visible := 1;
end;
end;
var MSWord: Variant;
begin
opendialog1.Filter:='Word files (*.doc)|*.DOC';
if opendialog1.Execute then
begin
MSWord := CreateOLEObject('Word.Application');
MSWord.Documents.Open (FileName:=opendialog1.FileName,ReadOnly:=True);//readonly为TRUE时,只读
MSWord.Visible := 1;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货