如何快速地从网页中获得Email地址毕业论(2)
2015-07-15 01:31
导读:bUpdateProfile 如果本参数设置为TRUE,这种映射将存储在用户Windows系统的profiles文件夹下作为用户配置保留。 strUser、strPassword 指定受托共享的用户名和密码。
bUpdateProfile 如果本参数设置为TRUE,这种映射将存储在用户Windows系统的profiles文件夹下作为用户配置保留。
strUser、strPassword 指定受托共享的用户名和密码。
若要断开该映射,可以使用RemoveNetworkDrive方法,例如oWshNetwork.RemoveNetworkDrive('w:')。
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;
(科教作文网http://zw.ΝsΕAc.com发布)
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