2.2 创建应用程序快捷方式图标
WSH可以帮助我们非常容易地创建应用程序快捷方式图标，这使得我们能够自由地在安装程序中选择发布程序快捷图标的创建方式。至于应用程序快捷方式图标放置在哪个地方，则完全由我们来决定。实际上，WSH允许我们自由地将应用程序快捷方式图标放置在桌面、开始菜单、程序组、发送到、网上邻居、我的文档等各种地方。在WindowsNT中，还可以放置在所有用户的启动组、开始菜单或桌面上。实际操作时，WSH首先利用WshSpecialFolders.Item（"strFolderName"）属性返回指定文件夹（如桌面）的路径，然后利用CreateShortcut方法创建快捷方式。当然，我们也可以指定该快捷方式的热键、目标路径、工作路径、窗口状态等等。下面是一个示例：
procedure TForm1.Button1Click(Sender: TObject);
var
oWshShell,strShortcut,oMyShortcut:variant ;
begin
oWshShell:=CreateoleObject('Wscript.Shell');
strShortcut:=oWshShell.SpecialFolders.Item('DeskTop');
oMyShortcut:=oWshShell.CreateShortcut(strShortcut+'\MIS辅助教学.lnk');
oMyShortCut.Hotkey:='ALT+CTRL+C';
oMyShortcut.TargetPath:= 'd:\mis\mis.exe';
oMyShortCut.WorkingDirectory="d:\mis\"
oMyShortCut.WindowStyle=1
oMyShortCut.Save;
end;
上述程序代码在桌面创建了一个“MIS辅助教学”应用程序快捷方式图标。窗口状态（WindowStyle）设置为普通，Save()方法用于保存该快捷方式图标。另外，我们可以根据需要将Item（"strFolderName"）中的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 ，进行操作。注意，括号内为缩写形式，实际应用时，我们既可以使用全称，也可以使用缩写。下面来看一个示例程序：
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说计算机如何快速地从网页中获得Email地址(2)在线全文阅读。
