如何快速地从网页中获得Email地址

摘要SH是一种基于32位inds平台、应用于AtiveX脚本引擎、与编程语言无关的脚本宿主。本文通过几个实例介绍了如何在Delphi5.0中应用SH技术。

关键词Delphii SH 脚本执行和辅助功能

1 引言微软公司的SH(indsSriptingHst)是一种基于32位inds平台、应用于AtiveX脚本引擎、与编程语言无关的脚本宿主。SH具有良好的脚本语言支持特性，它支持VBSript、javasript、Perl、REXX等各种脚本语言。SH的运行方式较为灵敏，既可以在inds中运行，也可以在DS命令形式下启动。微软已经在

inds98、inds2000中内置了SH技术。SH对象模型主要包含了两类AtiveX接口：脚本执行和辅助功能。每类接口提供多种SH对象，各对象有自己的方法和属性。脚本执行接口提供了许多属性和方法。这类接口允许脚本操作处理SH，在屏幕上显示特定信息，执行一些根本功能〔如创立rd应用程序对象〕。辅助功能接口也提供了丰富的属性和方法供用户使用。利用这些属性和方法我们可以进展各种操作，例如：映射网络驱动器、连接远程打印机、获取编辑系统环境变量〔如用户名、计算机名、域名等等〕、操作注册表等。系统管理员可以利用这些辅助功能创立简单的登录脚本。程序编写者可以利用这些由SH提供的对象接口在基于inds的平台上执行各种自动化任务，例如：启动rd、Exel、Perpint任务，翻开AD文件等。在Delphi5.0中应用SH 技术，不但可以利用SH的强大功能增强应用程序的性能，还可以简化应用程

序设计，使编程工作更为简单。某些本来只能由indsAPI函数完成的工作如今可以使用更为简单明了的SH完成。SH为用户提供了多个对象，例如：shShrtut、shShell、shArguents、shUrlShrtut、Autatin、shEnvirnent等等。我们可以利用它们进展各种应用。2 SH应用实例2.1映射网络驱动器在实际开发IS系统时，我们曾经碰到这样一个问题：该系统由企业内部30个不同的部门使用，由于管理的需要，各部门的数据除了通过专用数据库接口提交到效劳器以实现数据共享外，还须由系统自动将各部门数据以专门的HTL文件格式发送到指定的效劳器目录下。效劳器上对应设置了30个不同的共享目录。效劳器上的共享目录分别映射为本地各部门的指定驱动器如:〕。显然，逐个部门进展手工映射比拟繁琐。比拟严重的情况是，假如用户由于误操作断开该映射，将导致应用系统无法运行。比拟好的做法是在系统启动时自动映射网络驱动器，SH为我们提供了非常简单的实现方法。下面是一个例如性程序：

predureTFr1.Frreate(Sender:Tbjet);var shNetrk:variant;begin shNetrk:=reatelebjet('sript.Netrk');

shNetrk.apNetrkDrive(':','\\ezss\ydis','True','adinistratr','xyz');En d；程序首先创立基于SH的LE对象，然后映射效劳器ezss上的共享目录ydis为:。apNetrkDrive方法的语法格式为：apNetrkDrive

深喉小说〔strLalNae,strReteNae,[bUpdatePrfile],[strUser],[strPassrd]〕各参数含义简要说明如下：strLalNae 映射到本地的驱动器名称。

酷派n68

strReteNae映射的远程共享名。bUpdatePrfile假如本参数设置为TRUE，这种映射将存储在用户inds系统的prfiles文件夹下作为用户配置保存。strUser、strPassrd指定受托共享的用户名和密码。假设要断开该映射，可以使用ReveNetrkDrive方法，例如shNetrk.ReveNetrkDrive(':')。2.2创立应用程序快捷方式图标SH可以帮助我们非常容易地创立应用程序快捷方式图标，这使得我们可以自由地在安装程序中选择发布程序快捷图标的创立方式。至于应用程序快捷方式图标放置在哪个地方，那么完全由我们来决定。实际上，SH允许我们自由地将应用程序快捷方式图标放置在桌面、开场菜单、程序组、发送到、网上邻居、我的文档等各种地方。在indsNT中，还可以放置在所有用户的启动组、开场菜单或桌面上。实际操作时，SH首先利用shSpeialFlders.Ite 〔"strFlderNae"〕属性返回指定文件夹〔如桌面〕的途径，然后利用reateShrtut方法创立快捷方式。当然，我们也可以指定该快捷方式的热键、目的途径、工作途径、窗口状态等等。下面是一个例如：predureTFr1.Buttn1lik(Sender:Tbjet);var shShell,strShrtut,yShrtut:variant;begin

泰拉星球shShell:=reatelebjet('sript.Shell');

strShrtut:=shShell.SpeialFlders.Ite('DeskTp');

yShrtut:=ateShrtut(strShrtut+'\IS辅助教学.lnk');

yShrtut.Htkey:='ALT+TRL+';

yShrtut.TargetPath:='d:\';

yShrtut.rkingDiretry="d:\is\" yShrtut.indStyle=1

yShrtut.Save;end；上述程序代码在桌面创立了一个“IS辅助教学〞应用程序快捷方式图标。

brother sharp窗口状态〔indStyle〕设置为普通，Save()方法用于保存该快捷方式图标。另外，我们可以根据需要将Ite〔"strFlderNae"〕中的strFlderNae修改为AllUsersDesktp、AllUsersStartenu、AllUsersPrgras、AllUsersStartup、Desktp、Favrites、Fnts、yDuents、NetHd、PrintHd、Prgras、Reent、SendT、Startenu、Startup等串值，以便在不同的地方创立应用程序快捷方式图标。2.3实现rd、Perpint、Exel自动尽管Delphi5.0已经提供了ffie组件，也提供了这方面的应用实例，但在处理一个已经存在的ffie文档时仍然不够方便。SH可以灵敏地处理ffie文档，这使得我们几乎可以在应用程序中无缝集成ffie功能。在创立基于ffie 应用程序的LE对象后，编程人员可以利用ffie录制宏的功能，非常方便地获得有关处理命令，减少了开发难度。这样一来，在应用程序中实现rd、Perpint、Exel自动化，就非常容易了。下面是一个处理rd文档的简单例如：

predureTFr1.Buttn1lik(Sender:Tbjet);var rd:variant;begin

rd:=reatelebjet('rd.appliatin'); rd.visible:=false;

rd.duents.pen('d:\sgl\r_10.d');

rd.duents.ite(1).saveas('d:\sgl\hts\r_10.htl',8); rd.quit;end;

上述代码的主要作用是将r_10.d文件另存为eb页，适用于

发展心理rd97、rd2000。请注意saveas()中的参数8，它用于标识HTL文档格式。假如不使用该参数，保存为eb页后可能全是乱码。2.4操作注册表Delphi5.0已经提供了操作注册表的方法〔使用ate〕，但使用SH的处理方法更为简单明了。SH通过RegRead、RegDelete、Regrite方法，可以对注册表的5个分支局部，即HKEY_URRENT_USER〔HKU〕、HKEY_LAL_AHINE〔HKL〕、HKEY_LASSES_RT 〔HKR〕、HKEY_USERS、HKEY_URRENT_NFIG，进展操作。注意，括号内为缩写形式，实际应用时，我们既可以使用全称，也可以使用缩写。下面来看一个例如程序：predureTFr1.Buttn1lik(Sender:Tbjet);var shReg:variant;begin

shReg:=reatelebjet('sript.Shell');

shReg.Regrite('HKU\SHSaple\Value',10,'REG_BINARY');end; 上述代码在注册表的HKEY_URRENT_USER分支下创立主键SHSaple，并在该主键下创立二进制值Value，其数值为10。Regrite方法的语法格式为：Regrite

圈疗

〔strNae,anyValue,[strType]〕。其中，strType参数用于指定键值的数据类型，可以是REG_DRD、REG_BINARY、REG_SZ等等。3完毕语总的看来，

SH使程序代码容易编写、易于阅读，还可以实现一些特殊功能。在使用Delphi5.0开发应用系统时，我们可以适当使用SH技术。

本文发布于:2024-09-24 04:19:16，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/230816.html

上一篇：卡瑞利珠单抗致反应性皮肤毛细血管增生症1例

下一篇：大学微机原理第三章习题