程序如下:
try
Word_Handle := CreateOleObject('Word.Application');
except
Application.MessageBox('还没有安装Word2000!', '提示', MB_ok + mb_defbutton1 + MB_iconinformation + mb_applmodal);
end;
Word_Handle.Visible := False;
path := GetCurrentDir + '\template.doc';
Doc_Handle := Word_Handle.Documents.Add(Template := path, NewTemplate := False);
//处理....
Doc_Handle.SaveAs(FileName := path, FileFormat := wdFormatDocument, AddToRecentFiles := False);
except
end;可是发现word打开后没有释放调,请问应该加什么语句?
try
Word_Handle := CreateOleObject('Word.Application');
except
Application.MessageBox('还没有安装Word2000!', '提示', MB_ok + mb_defbutton1 + MB_iconinformation + mb_applmodal);
end;
Word_Handle.Visible := False;
path := GetCurrentDir + '\template.doc';
Doc_Handle := Word_Handle.Documents.Add(Template := path, NewTemplate := False);
//处理....
Doc_Handle.SaveAs(FileName := path, FileFormat := wdFormatDocument, AddToRecentFiles := False);
except
end;可是发现word打开后没有释放调,请问应该加什么语句?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货