中的strFolderName修改为AllUsersDesktop、AllUsersStartMenu、AllUsersPrograms、AllUsersStartup、Desktop、Favorites、Fonts、MyDocuments、NetHood、PrintHood、Programs、Recent、SendTo、StartMenu、Startup等串值，以便在不同的地方创建应用程序快捷方式图标。
2.3 实现Word、Powerpoint、Excel自动
   尽管Delphi5.0已经提供了Office组件，也提供了这方面的应用实例，但在处理一个已经存在的Office文档时仍然不够方便。WSH可以灵活地处理Office文档，这使得我们几乎可以在应用程序中无缝集成Office功能。在创建基于Office应用程序的OLE对象后，编程人员可以利用Office录制宏的功能，非常方便地获得有关处理命令，减少了开发难度。这样一来，在应用程序中实现Word、Powerpoint、Excel自动化，就非常容易了。下面是一个处理Word文档的简单示例：
procedure TForm1.Button1Click(Sender: TObject);
var
  oWord:variant ;
begin
  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');
end;
  上述代码在注册表的HKEY_CURRENT_USER分支下创建主键WSHSample，并在该主键下创建二进制值Value，其数值为10。RegWrite方法的语法格式为：RegWrite（strName,anyValue,[strType]）。其中，strType参数用于指定键值的数据类型，可以是REG_DWORD、REG_BINARY、REG_SZ等等。
  3 结束语
    总的看来，WSH使程序代码容易编写、易于阅读，还可以实现一些特殊功能。在使用Delphi5.0开发应用系统时，我们可以适当使用WSH技术。

参考文献
1 Charlie Calvert，Delphi4编程技术内幕，机械工业出版社，1999
2 Micros
oft Corporation，动态HTML参考和开发应用大全，人民邮电出版社，2000.3

上一页  [1] [2]