评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

如何快速地从网页中获得Email地址毕业论(3)

2015-07-15 01:31
  OWord:=createoleobject('word.application') ;
  oWord.visible:=false;
  oWord.documents.open('d:\scgl\mr_10.doc');
  oWord.documents.item(1).saveas('d:\scgl\htms\mr_10.html',8);
  oWord.quit;
end;
    上述代码的主要作用是将mr_10.doc文件另存为Web页，适用于Word97、Word2000。请注意saveas()中的参数8，它用于标识HTML文档格式。如果不使用该参数，保存为Web页后可能全是乱码。
2.4 操作注册表
    Delphi5.0已经提供了操作注册表的方法（使用TRegistry.Create），但使用WSH的处理方法更为简单明了。WSH通过RegRead、RegDelete、RegWrite方法，可以对注册表的5个分支部分，即HKEY_CURRENT_USER（HKCU）、HKEY_LOCAL_MACHINE（HKLM）、HKEY_CLASSES_ROOT（HKCR）、HKEY_USERS 、HKEY_CURRENT_CONFIG ，进行操作。注意，括号内为缩写形式，实际应用时，我们既可以使用全称，也可以使用缩写。下面来看一个示例程序：
procedure TForm1.Button1Click(Sender: TObject);
var
  oWshReg:variant ;
begin
  oWshReg:=CreateOleObject('Wscript.Shell');
  oWshReg.RegWrite('HKCU\WSHSample\Value',10,'REG_BINARY');